treat EOF from stdin as if "exit" were typed

1 files changed, 3 insertions, 4 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index c47e8bf..747ae28 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -27,7 +27,6 @@ import qualified Sound.ALSA.Sequencer.Address
 import qualified Sound.ALSA.Sequencer.Port
 import qualified Sound.ALSA.Sequencer.Queue
 
-
 verbose = False
 
 main = main' `AlsaExc.catch` handler
@@ -144,7 +143,7 @@ emptyRecording now = Recording now []
 maybeReadLine = asks _lineReader >>= liftIO . tryTakeMVar
 startLineReader = do
   mv <- liftIO newEmptyMVar
-  thread <- liftIO $ forkIO (forever $ getLine >>= putMVar mv)
+  thread <- liftIO $ forkIO (forever $ tryIOError getLine >>= either (const $ putMVar mv "exit") (putMVar mv))
   return mv
 
 data Chunk = Chunk Int64 Int64 Int64 Int64 Int64 BS.ByteString
@@ -179,8 +178,8 @@ startSaver sqlite = do
 
 
 getMidiDesc :: Event.T -> Maybe String
-getMidiDesc ((Event.Cons _ _ _ _ _ _ (Event.NoteEv Event.NoteOn  ev))) = return $ ("on:" ++)  $ showPitch $ unPitch $ Event.noteNote ev
-getMidiDesc ((Event.Cons _ _ _ _ _ _ (Event.NoteEv Event.NoteOff ev))) = return $ ("off:" ++) $ showPitch $ unPitch $ Event.noteNote ev
+getMidiDesc (Event.Cons _ _ _ _ _ _ (Event.NoteEv Event.NoteOn  ev)) = return $ ("on:" ++)  $ showPitch $ unPitch $ Event.noteNote ev
+getMidiDesc (Event.Cons _ _ _ _ _ _ (Event.NoteEv Event.NoteOff ev)) = return $ ("off:" ++) $ showPitch $ unPitch $ Event.noteNote ev
 getMidiDesc _ = Nothing
 
 tsDeltas :: [TimeSpec] -> [Integer]