Made input & output optional

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