2 files changed, 8 insertions, 5 deletions

diff --git a/src/Trivmix.hs b/src/Trivmix.hs
index 019ee32..f7ae1eb 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -27,6 +27,7 @@ import System.INotify
 data Options = Options
                { input :: String
                , output :: String
+               , client :: String
                , initialLevel :: Float
                , stateDir :: FilePath
                }
@@ -34,10 +35,13 @@ data Options = Options
 optionParser :: Parser Options
 optionParser = Options <$>
                strOption ( long "input"
-                           <> metavar "JACK"
+                           <> metavar "STRING"
                          )
                <*> strOption ( long "output"
-                               <> metavar "JACK"
+                               <> metavar "STRING"
+                             )
+               <*> strOption ( long "client"
+                               <> metavar "STRING"
                              )
                <*> (fromMaybe 0 <$> optional (option auto ( long "level"
                                                             <> metavar "FLOAT"
@@ -59,14 +63,13 @@ main = execParser opts >>= trivmix
 
 trivmix :: Options -> IO ()
 trivmix Options{..} = do
-  name <- getProgName
   createDirectoryIfMissing True stateDir
   level <- newMVar initialLevel
   let levelFile = stateDir </> "level"
   onLevelFile levelFile initialLevel $ withINotify $ \n -> do
     addWatch n [Modify] levelFile (const $ handleLevel level levelFile)
     Jack.handleExceptions $
-      Jack.withClientDefault name $ \client ->
+      Jack.withClientDefault client $ \client ->
       Jack.withPort client input $ \input' ->
       Jack.withPort client output $ \output' ->
       Audio.withProcessMono client input' (mix level) output' $
diff --git a/trivmix.cabal b/trivmix.cabal
index ae9a72e..8eee4f0 100644
--- a/trivmix.cabal
+++ b/trivmix.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                trivmix
-version:             0.0.0
+version:             0.1.0
 -- synopsis:            
 -- description:         
 license:             PublicDomain