1 files changed, 1 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 06b0162..d4b602f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -103,6 +103,7 @@ main = do
             -- main loop, for all you HOF/recursion fans out there.
             forever_ $ handle =<< io (nextEvent dpy e >> getEvent e)
 
+    return ()
       where forever_ a = a >> forever_ a
 
 -- ---------------------------------------------------------------------