Applied HLint

[Rakka.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 2ea8ef03d2d0091558e9e786f7b5869685878998..46eb3e2ad4867ef7361cb8c681a7ac2ac10d7f41 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -87,11 +87,11 @@ options = [ Option ['p'] ["port"]
 
           , Option [] ["disable-stderr-log"]
                    (NoArg OptDisableStderrLog)
-                   ("Disable logging to stderr.")
+                   "Disable logging to stderr."
 
           , Option [] ["rebuild-index"]
                    (NoArg OptRebuildIndex)
-                   ("Rebuild the index database.")
+                   "Rebuild the index database."
 
           , Option ['h'] ["help"]
                    (NoArg OptHelp)
@@ -111,7 +111,7 @@ main = withOpenSSL $
        withSubversion $
        do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
 
-          when (not $ null errors)
+          unless (null errors)
                    $ do mapM_ putStr errors
                         exitWith $ ExitFailure 1
 
@@ -119,7 +119,7 @@ main = withOpenSSL $
                    $ do printUsage
                         exitWith ExitSuccess
 
-          when (not $ null nonOpts)
+          unless (null nonOpts)
                    $ do printUsage
                         exitWith $ ExitFailure 1