changing the ghc options fixed the performance issue (-O2 and/or -threaded)

2 files changed, 8 insertions, 3 deletions

diff --git a/axis-of-eval.cabal b/axis-of-eval.cabal
index 73ba50f..f69d3f5 100644
--- a/axis-of-eval.cabal
+++ b/axis-of-eval.cabal
@@ -29,3 +29,4 @@ executable midi-dump
     base, time, containers, haskore, alsa-seq, alsa-core, mtl, clock, sqlite-simple, bytestring, base-prelude
   main-is: midi-dump.hs
   other-modules: AlsaSeq
+  ghc-options: -threaded -W -Wall -O2
diff --git a/midi-dump.hs b/midi-dump.hs
index ad9fd46..b9911c8 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -60,7 +60,8 @@ data LoopEnv = LoopEnv {
   private :: Sound.ALSA.Sequencer.Port.T,
   q :: Sound.ALSA.Sequencer.Queue.T,
   publicAddr :: Sound.ALSA.Sequencer.Address.T,
-  privateAddr :: Sound.ALSA.Sequencer.Address.T
+  privateAddr :: Sound.ALSA.Sequencer.Address.T,
+  doSave :: Bool
 }
 
 getAbsTime = do
@@ -83,7 +84,9 @@ main' = withAlsaInit $ \h public private q publicAddr privateAddr -> do
   execute_ sqlite "CREATE TABLE IF NOT EXISTS chunks (id INTEGER PRIMARY KEY, sec INTEGER, nsec INTEGER, midi BLOB)"
   saver <- startSaver sqlite
 
-  let env = LoopEnv saver sqlite startTime startTimeReal h public private q publicAddr privateAddr
+  doSave <- isJust <$> lookupEnv "SAVE_MIDI"
+
+  let env = LoopEnv saver sqlite startTime startTimeReal h public private q publicAddr privateAddr doSave
 
   (_, ()) <- execRWST loop env (emptyLoopState startTime)
   return ()
@@ -119,7 +122,8 @@ loop = do
       modify $ \s -> s { inputHistory = Silence now:inputHistory s }
       -}
 
-      gets inputHistory >>= saveMidi >> return ()
+      doSave <- asks doSave
+      when doSave $ gets inputHistory >>= saveMidi >> return ()
       modify $ \s -> s { inputHistory = [] }
 
   loop