jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

hlint suggestion

This commit is contained in:
Jonathan Lamothe 2018-12-31 15:26:11 -05:00
parent 7e23d70a63
commit 8b71454445
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Spec/PWRemoveService.hs
View File

@ -45,7 +45,7 @@ missingService = TestLabel "missing service" $
test' serv keys = let db' = pwRemoveService serv db in test' serv keys = let db' = pwRemoveService serv db in
TestList $ TestList $
(TestLabel "key count" $ length keys ~?= length (M.keys db')) : TestLabel "key count" (length keys ~?= length (M.keys db')) :
map map
(\x -> TestLabel x $ TestCase $ assertBool "service missing" $ pwHasService x db') (\x -> TestLabel x $ TestCase $ assertBool "service missing" $ pwHasService x db')
keys keys