This commit is contained in:
Joey Hess 2010-11-08 17:44:30 -04:00
parent 40a815d873
commit 8dd9f8e49e

View file

@ -81,4 +81,4 @@ fileKey file = read $
{- for quickcheck -}
prop_idempotent_fileKey :: String -> Bool
prop_idempotent_fileKey s = k == (fileKey $ keyFile k)
where k = read "test:s"
where k = read $ "test:" ++ s