diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-11-16 14:37:31 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-11-16 14:37:31 -0400 |
commit | e316eac6c816111c11280aab79e9a058f86d902b (patch) | |
tree | eea4b7657458ab2957f67cb03bbc25585fa27b3a /Locations.hs | |
parent | 8055c761751e5c6a913f76293281389e29378545 (diff) |
fix use of hifalutin terminology
Diffstat (limited to 'Locations.hs')
-rw-r--r-- | Locations.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Locations.hs b/Locations.hs index bcbac34db..ba6115155 100644 --- a/Locations.hs +++ b/Locations.hs @@ -67,7 +67,7 @@ module Locations ( hashDirLower, preSanitizeKeyName, - prop_idempotent_fileKey + prop_isomorphic_fileKey ) where import Data.Char @@ -437,8 +437,8 @@ fileKey file = file2key $ replace "&c" ":" $ replace "%" "/" file {- for quickcheck -} -prop_idempotent_fileKey :: String -> Bool -prop_idempotent_fileKey s +prop_isomorphic_fileKey :: String -> Bool +prop_isomorphic_fileKey s | null s = True -- it's not legal for a key to have no keyName | otherwise= Just k == fileKey (keyFile k) where |