Applied HLint

[Rakka.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index b6e5d6d489e9bfcd00d3cfca7d2d8eaffa0b9ed9..46eb3e2ad4867ef7361cb8c681a7ac2ac10d7f41 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -16,6 +16,7 @@ import           Rakka.Resource.Render
 import           Rakka.Resource.Search
 import           Rakka.Resource.SystemConfig
 -- import           Rakka.Resource.TrackBack
+import           Rakka.Resource.Users
 import           Rakka.Storage
 import           Subversion
 import           System.Console.GetOpt
@@ -86,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)
@@ -110,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
 
@@ -118,7 +119,7 @@ main = withOpenSSL $
                    $ do printUsage
                         exitWith ExitSuccess
 
-          when (not $ null nonOpts)
+          unless (null nonOpts)
                    $ do printUsage
                         exitWith $ ExitFailure 1
 
@@ -154,6 +155,7 @@ resTree env
                 , (["search.xml"  ], resSearch       env)
                 , (["systemConfig"], resSystemConfig env)
                 -- , (["trackback"   ], resTrackBack    env)
+               , (["users"       ], resUsers        env)
                 ]