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 ++++++++++------ trivmix.cabal | 2 +- 2 files changed, 11 insertions(+), 7 deletions(-) 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" ) diff --git a/trivmix.cabal b/trivmix.cabal index c90aae4..a871a9d 100644 --- a/trivmix.cabal +++ b/trivmix.cabal @@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: trivmix -version: 1.0.0 +version: 1.1.0 -- synopsis: -- description: license: PublicDomain -- cgit v1.2.3