X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/51000365958c1362ceb3c9a224f184aa64513c84..235a0fa59aac0fa99ca8e0e613f9a088da491c73:/htest/Test/Ganeti/Daemon.hs

diff --git a/htest/Test/Ganeti/Daemon.hs b/htest/Test/Ganeti/Daemon.hs
index fb6cc75..e883e39 100644
--- a/htest/Test/Ganeti/Daemon.hs
+++ b/htest/Test/Ganeti/Daemon.hs
@@ -38,6 +38,8 @@ import Test.Ganeti.Common
 import Ganeti.Common
 import Ganeti.Daemon as Daemon
 
+{-# ANN module "HLint: ignore Use camelCase" #-}
+
 -- | Test a few string arguments.
 prop_string_arg :: String -> Property
 prop_string_arg argument =
@@ -65,7 +67,7 @@ case_bool_arg =
 
 -- | Tests a few invalid arguments.
 case_wrong_arg :: Assertion
-case_wrong_arg = do
+case_wrong_arg =
   mapM_ (passFailOpt defaultOptions assertFailure (return ()))
         [ (oSyslogUsage, "foo", "yes")
         , (oPort 0,      "x",   "10")
@@ -74,7 +76,7 @@ case_wrong_arg = do
 -- | Test that the option list supports some common options.
 case_stdopts :: Assertion
 case_stdopts =
-  checkEarlyExit defaultOptions "prog" [oShowHelp, oShowVer]
+  checkEarlyExit defaultOptions "prog" [oShowHelp, oShowVer] []
 
 testSuite "Daemon"
           [ 'prop_string_arg