hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Add commandline param for input (without --input)

pull/8/head
Lennart Spitzner 2016-09-06 14:50:16 +02:00
parent 9f1215b2ed
commit 65fee7694d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src-brittany/Main.hs
View File

@ -72,6 +72,7 @@ mainCmdParser = do
suppressOutput <- addSimpleBoolFlag "" ["suppress-output"] (flagHelp $ parDoc "suppress the regular output, i.e. the transformed haskell source") suppressOutput <- addSimpleBoolFlag "" ["suppress-output"] (flagHelp $ parDoc "suppress the regular output, i.e. the transformed haskell source")
_verbosity <- addSimpleCountFlag "v" ["verbose"] (flagHelp $ parDoc "[currently without effect; TODO]") _verbosity <- addSimpleCountFlag "v" ["verbose"] (flagHelp $ parDoc "[currently without effect; TODO]")
reorderStop reorderStop
inputParam <- addStringParamOpt "PATH" (paramHelpStr "path to input haskell source file")
desc <- peekCmdDesc desc <- peekCmdDesc
addCmdImpl $ void $ do addCmdImpl $ void $ do
when printVersion $ do when printVersion $ do
@ -83,7 +84,7 @@ mainCmdParser = do
when printHelp $ do when printHelp $ do
liftIO $ print $ ppHelpShallow desc liftIO $ print $ ppHelpShallow desc
System.Exit.exitSuccess System.Exit.exitSuccess
inputPathM <- case inputPaths of inputPathM <- case maybeToList inputParam ++ inputPaths of
[] -> do [] -> do
return Nothing return Nothing
[x] -> return $ Just x [x] -> return $ Just x