add verbose flag

Makefile

@@ -1,5 +1,5 @@
-PHONY: test
-test:
+PHONY: run-tests
+run-tests:
 	@cabal test
 
 build-all:

app/Main.hs

@@ -43,7 +43,7 @@ main = do
     show (optCommand opts) ++
     " (verbose: " ++ show (optVerboseFlag opts) ++ ")\n" ++
     " (realtime: " ++ show (optRealTimeFlag opts) ++ ")\n"
-  rc <- run (optCommand opts) (optRealTimeFlag opts)
+  rc <- run (optCommand opts) (optRealTimeFlag opts) (optVerboseFlag opts)
   print rc
   where
     optsParser :: ParserInfo Opts

audiocate.cabal

@@ -73,36 +73,36 @@ executable audiocate
     hs-source-dirs:   app
     default-language: GHC2021
 
--- executable audiocate-gui
---   hs-source-dirs: gui
---   c-sources: csrc/resources.c
---   main-is: Main.hs
---   ghc-options: -Wall -fno-warn-unused-do-bind -threaded -with-rtsopts=-N
---   build-depends: 
---     base >=4.7 && <5 
---     , audiocate
---     , time
---     , gi-glib 
---     , gi-gtk
---     , gi-adwaita
---     , gi-gobject
---     , gi-gio
---     , haskell-gi-base
---     , directory
---     , text
---     , mtl
---     , stm
---   other-modules:
---     MainWindow
---     , View.EncodeView
---     , View.DecodeView
---     , View.LoadView
---     , AppState
---   default-language: GHC2021
---   default-extensions:
---     OverloadedLabels
---     , OverloadedStrings
---     , OverloadedRecordDot
+executable audiocate-gui
+  hs-source-dirs: gui
+  c-sources: csrc/resources.c
+  main-is: Main.hs
+  ghc-options: -Wall -fno-warn-unused-do-bind -threaded -with-rtsopts=-N
+  build-depends: 
+    base >=4.7 && <5 
+    , audiocate
+    , time
+    , gi-glib 
+    , gi-gtk
+    , gi-adwaita
+    , gi-gobject
+    , gi-gio
+    , haskell-gi-base
+    , directory
+    , text
+    , mtl
+    , stm
+  other-modules:
+    MainWindow
+    , View.EncodeView
+    , View.DecodeView
+    , View.LoadView
+    , AppState
+  default-language: GHC2021
+  default-extensions:
+    OverloadedLabels
+    , OverloadedStrings
+    , OverloadedRecordDot
 
 test-suite audiocate-test
     default-language: GHC2021

lib/Audiocate.hs

@@ -11,7 +11,7 @@ import Command.Cmd (Command(..), CommandReturnCode(..), interpretCmd)
 
 -- | Runs the provided Command 
 run :: Command -> Bool -> Bool -> IO CommandReturnCode
-run cmd isRealTime isVerbose = interpretCmd cmd isRealTime isVerbose
+run = interpretCmd
 
 -- | Prints the version string
 version :: String