From f4dee5a48229d6e17c87b7346509bf37811367d5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 11 Feb 2014 01:35:11 -0400 Subject: more hlint --- Logs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Logs.hs') 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) -- cgit v1.2.3