more hlint
This commit is contained in:
parent
4515fa10aa
commit
40cec65ace
6 changed files with 34 additions and 44 deletions
2
Logs.hs
2
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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue