From 83838ea952146a742b2cf5e97b287d9cbeef8c61 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 7 Jun 2015 22:39:05 +0200 Subject: Made input & output optional --- src/Trivmix.hs | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'src/Trivmix.hs') diff --git a/src/Trivmix.hs b/src/Trivmix.hs index 2d6a50a..a754e76 100644 --- a/src/Trivmix.hs +++ b/src/Trivmix.hs @@ -37,12 +37,16 @@ data Options = Options optionParser :: Parser Options optionParser = Options <$> - strOption ( long "input" - <> metavar "STRING" - ) - <*> strOption ( long "output" - <> metavar "STRING" - ) + (fromMaybe "in" <$> optional (strOption ( long "input" + <> metavar "STRING" + ) + ) + ) + <*> (fromMaybe "out" <$> optional (strOption ( long "output" + <> metavar "STRING" + ) + ) + ) <*> strOption ( long "client" <> metavar "STRING" ) -- cgit v1.2.3