Skip to content

Commit

Permalink
Add vertical whitespace
Browse files Browse the repository at this point in the history
  • Loading branch information
process-bot committed Apr 18, 2016
1 parent 3419cbc commit 4990668
Showing 1 changed file with 8 additions and 0 deletions.
8 changes: 8 additions & 0 deletions src/Flags.hs
Original file line number Diff line number Diff line change
Expand Up @@ -17,15 +17,19 @@ import qualified BuildManager as BM
import qualified Report



-- TO CONFIG


toConfig :: BM.Task BM.Config
toConfig =
liftIO parse



-- PARSE ARGUMENTS


parse :: IO BM.Config
parse =
Opt.customExecParser preferences parser
Expand All @@ -39,8 +43,10 @@ parse =
Opt.info (Opt.helper <*> flags) helpInfo



-- COMMANDS


flags :: Opt.Parser BM.Config
flags =
BM.Config BM.artifactDirectory
Expand All @@ -63,8 +69,10 @@ flags =
]



-- HELP


helpInfo :: Opt.InfoMod BM.Config
helpInfo =
mconcat
Expand Down

0 comments on commit 4990668

Please sign in to comment.