more hlint

This commit is contained in:
Joey Hess 2014-02-11 01:35:11 -04:00
parent 4515fa10aa
commit 40cec65ace
6 changed files with 34 additions and 44 deletions

View file

@ -120,7 +120,7 @@ isRemoteStateLog :: FilePath -> Bool
isRemoteStateLog path = remoteStateLogExt `isSuffixOf` path
prop_logs_sane :: Key -> Bool
prop_logs_sane dummykey = all id
prop_logs_sane dummykey = and
[ isNothing (getLogVariety "unknown")
, expect isUUIDBasedLog (getLogVariety uuidLog)
, expect isPresenceLog (getLogVariety $ locationLogFile dummykey)