Compressed / simplified option parsing code.

jgm · Jan 29, 2009 · 5a9ea0d · 5a9ea0d
1 parent 5b52668
commit 5a9ea0d
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/Gitit.hs b/Gitit.hs
@@ -65,9 +65,7 @@ sessionTime = 60 * 60     -- session will expire 1 hour after page request
 
 main :: IO ()
 main = do
-  argv <- getArgs
+  conf <- getArgs >>= parseArgs >>= foldM handleFlag defaultConfig
-  options <- parseArgs argv
-  conf <- foldM handleFlag defaultConfig options
   -- check for external programs that are needed
   let prereqs = "grep" : case repository conf of
                       Git _        -> ["git"]