fixed pedantic warnings and hlint stuff

2020-02-28 01:23:44 -05:00
parent b3e2121597
commit 1717f4c298
21 changed files with 179 additions and 53 deletions
--- a/test/Spec/NewPWPolicy.hs
+++ b/test/Spec/NewPWPolicy.hs
@@ -27,6 +27,7 @@ import Test.HUnit (Test(..), (~?=))

 import Password

+tests :: Test
 tests = TestLabel "PWPolicy" $ TestList $ map test'
  [ ( "pwLength",  newPWPolicy^.pwLength  ~?= 16     )
  , ( "pwUpper",   newPWPolicy^.pwUpper   ~?= 0      )
@@ -35,6 +36,7 @@ tests = TestLabel "PWPolicy" $ TestList $ map test'
  , ( "pwSpecial", newPWPolicy^.pwSpecial ~?= Just 0 )
  ]

+test' :: (String, Test) -> Test
 test' (label, x) = TestLabel label x

 --jl