summaryrefslogtreecommitdiff
path: root/Logs.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-11 01:35:11 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-11 10:48:52 -0400
commitf4dee5a48229d6e17c87b7346509bf37811367d5 (patch)
tree44ec976fed590223c00cf0725bb5d5e28305e592 /Logs.hs
parent82feaf7305d2e40155ffd8e80c5f3bf6c9a71bd6 (diff)
more hlint
Diffstat (limited to 'Logs.hs')
-rw-r--r--Logs.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs.hs b/Logs.hs
index 828a73dc7..1e7a8e8c4 100644
--- a/Logs.hs
+++ b/Logs.hs
@@ -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)