1 files changed, 7 insertions, 3 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 59a9df5..275593d 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -221,12 +221,16 @@ mainLoop = do
     else delay >> mainLoop
 
   where
-    tickDuration = 5000 -- 5ms
+    tickDurationMilliseconds = 4
+
+    tickDuration = TimeSpec 0 (tickDurationMilliseconds * 10^(6::Int64))
     delay = do
       before <- gets _lastTick
+      liftIO performMinorGC
       after <- getAbsTime
-      if after - before < fromIntegral (10^(6::Int) * tickDuration) then
-        liftIO $ threadDelay $ tickDuration - fromIntegral (nsec after - nsec before) `div` 1000
+      let duration = tickDuration - (after - before)
+      if duration > 0 then
+        liftIO $ threadDelay $ fromIntegral (nsec duration) `div` 1000
       else
         liftIO $ putStrLn "Uh oh!  Dropped frame!"
       mainLoop