fill out types in the reader environment

1 files changed, 15 insertions, 9 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 0ed7ecb..ad9fd46 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -20,9 +20,15 @@ import Data.Int
 import Data.ByteString.Char8 (pack)
 
 import Control.Concurrent.Chan
-import Prelude hiding ((.))
+import Prelude hiding ((.), id)
 import BasePrelude hiding (loop)
 
+import qualified Sound.ALSA.Sequencer.Address
+import qualified Sound.ALSA.Sequencer.Port
+import qualified Sound.ALSA.Sequencer.Queue
+import qualified Sound.ALSA.Sequencer
+
+
 verbose = False
 
 main = main' `AlsaExc.catch` handler
@@ -45,16 +51,16 @@ data LoopState = LoopState {
 }
 
 data LoopEnv = LoopEnv {
-  saver :: _,
-  sqlite :: _,
+  saver :: Chan (Int64, Int64, [EVENT]),
+  sqlite :: Connection,
   startTime :: TimeSpec,
   startTimeReal :: TimeSpec,
-  h :: _,
-  public :: _,
-  private :: _,
-  q :: _,
-  publicAddr :: _,
-  privateAddr :: _
+  h :: Sound.ALSA.Sequencer.T Sound.ALSA.Sequencer.DuplexMode,
+  public :: Sound.ALSA.Sequencer.Port.T,
+  private :: Sound.ALSA.Sequencer.Port.T,
+  q :: Sound.ALSA.Sequencer.Queue.T,
+  publicAddr :: Sound.ALSA.Sequencer.Address.T,
+  privateAddr :: Sound.ALSA.Sequencer.Address.T
 }
 
 getAbsTime = do