diff options
| -rw-r--r-- | src/Trivmix.hs | 16 | ||||
| -rw-r--r-- | 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 | |||
| 37 | 37 | ||
| 38 | optionParser :: Parser Options | 38 | optionParser :: Parser Options |
| 39 | optionParser = Options <$> | 39 | optionParser = Options <$> |
| 40 | strOption ( long "input" | 40 | (fromMaybe "in" <$> optional (strOption ( long "input" |
| 41 | <> metavar "STRING" | 41 | <> metavar "STRING" |
| 42 | ) | 42 | ) |
| 43 | <*> strOption ( long "output" | 43 | ) |
| 44 | <> metavar "STRING" | 44 | ) |
| 45 | ) | 45 | <*> (fromMaybe "out" <$> optional (strOption ( long "output" |
| 46 | <> metavar "STRING" | ||
| 47 | ) | ||
| 48 | ) | ||
| 49 | ) | ||
| 46 | <*> strOption ( long "client" | 50 | <*> strOption ( long "client" |
| 47 | <> metavar "STRING" | 51 | <> metavar "STRING" |
| 48 | ) | 52 | ) |
diff --git a/trivmix.cabal b/trivmix.cabal index c90aae4..a871a9d 100644 --- a/trivmix.cabal +++ b/trivmix.cabal | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | -- documentation, see http://haskell.org/cabal/users-guide/ | 2 | -- documentation, see http://haskell.org/cabal/users-guide/ |
| 3 | 3 | ||
| 4 | name: trivmix | 4 | name: trivmix |
| 5 | version: 1.0.0 | 5 | version: 1.1.0 |
| 6 | -- synopsis: | 6 | -- synopsis: |
| 7 | -- description: | 7 | -- description: |
| 8 | license: PublicDomain | 8 | license: PublicDomain |
