store midi event history in a simple list

1 files changed, 1 insertions, 1 deletions

diff --git a/axis.hs b/axis.hs
index ba4ccdc..c784865 100644
--- a/axis.hs
+++ b/axis.hs
@@ -396,7 +396,7 @@ textBand videoSurface videoClipRect (SDL.Rect _ y _ h) font text = do
     return ()
   return ()
 
---parseSDLEvents :: Set.Set SDL.SDLKey -> Set.Set SDL.Event -> IO (Set.Set SDL.Keysym.SDLKey, Set.Set SDL.Event)
+parseSDLEvents :: Set.Set SDLKey -> (Int, Int) -> IO (Set.Set SDLKey, (Int, Int))
 parseSDLEvents keysDown others = do
   event <- SDL.pollEvent
   case event of