diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-11 01:35:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-11 10:48:52 -0400 |
| commit | f4dee5a48229d6e17c87b7346509bf37811367d5 (patch) | |
| tree | 44ec976fed590223c00cf0725bb5d5e28305e592 /Logs.hs | |
| parent | 82feaf7305d2e40155ffd8e80c5f3bf6c9a71bd6 (diff) | |
more hlint
Diffstat (limited to 'Logs.hs')
| -rw-r--r-- | Logs.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |