Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Compressed / simplified option parsing code.

  • Loading branch information...
commit 5a9ea0da461f53b4845ca356f911b27c85e12b41 1 parent 5b52668
@jgm authored
Showing with 1 addition and 3 deletions.
  1. +1 −3 Gitit.hs
View
4 Gitit.hs
@@ -65,9 +65,7 @@ sessionTime = 60 * 60 -- session will expire 1 hour after page request
main :: IO ()
main = do
- argv <- getArgs
- options <- parseArgs argv
- conf <- foldM handleFlag defaultConfig options
+ conf <- getArgs >>= parseArgs >>= foldM handleFlag defaultConfig
-- check for external programs that are needed
let prereqs = "grep" : case repository conf of
Git _ -> ["git"]
Please sign in to comment.
Something went wrong with that request. Please try again.