Fix build

1 files changed, 8 insertions, 3 deletions

diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs
index b437abc..a13460f 100644
--- a/trivmix/Trivmix.hs
+++ b/trivmix/Trivmix.hs
@@ -30,6 +30,7 @@ import System.IO
 import System.FileLock
 import System.INotify
 
+import Data.Monoid
 import Data.Char
 import Data.Function
 
@@ -41,6 +42,7 @@ data Options = Options
                { input :: String
                , output :: String
                , client :: String
+               , initialLevel :: Level
                , run :: Maybe String
                , levelFiles :: [FilePath]
                }
@@ -63,6 +65,12 @@ optionParser = Options
                                <> metavar "STRING"
                                <> help "Client name to use in jack (the part before the colon in port names)"
                              )
+               <*> option auto ( long "level"
+                               <> metavar "LEVEL"
+                               <> help "Initial value for level"
+                               <> value def
+                               <> showDefault
+                               )
                <*> optional ( strOption ( long "run"
                                           <> metavar "FILE"
                                           <> help "Execute a file once setup of jacks is done (use this to autoconnect)\nThe executable gets passed the input port (including client name) as its first argument and the output as its second."
@@ -84,9 +92,6 @@ watchedAttrs = [ Modify
                , DeleteSelf
                ]
 
-initialLevel :: Level
-initialLevel = def
-
 defFileMode :: FileMode
 defFileMode = foldl unionFileModes nullFileMode [ ownerReadMode
                                                 , ownerWriteMode