Option for clientname

1 files changed, 7 insertions, 4 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' $