From 2bb2f5e28f14d0d31762acd6c54612b34d911c55 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 12 Oct 2007 17:28:01 +0200 Subject: Respect ExitExceptions, fixes a regression where exitWith had no effect darcs-hash:20071012152801-a5988-80a14dda451e1e6e7cdc9e42fdc11568c21004b2 --- Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Main.hs') 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 -- --------------------------------------------------------------------- -- cgit v1.2.3