From 83838ea952146a742b2cf5e97b287d9cbeef8c61 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
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