1 files changed, 1 insertions, 1 deletions
diff --git a/Logs.hs b/Logs.hs
index 828a73dc70..1e7a8e8c4e 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)