From e316eac6c816111c11280aab79e9a058f86d902b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 16 Nov 2015 14:37:31 -0400 Subject: fix use of hifalutin terminology --- Locations.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Locations.hs') 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 -- cgit v1.2.3