From 6c6b541ef1e74fc7f0905fd0d39d5fe867c22a6f Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 12 Oct 2007 03:42:17 +0200
Subject: Add userCode function for the popular m `catchX` return ()

darcs-hash:20071012014217-a5988-06b6f1519b5f87fcbc8220ad5bd69181c721635a
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index d153d43..f2f6b47 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -169,7 +169,7 @@ windows f = do
 
     whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc
     setTopFocus
-    logHook `catchX` return ()
+    userCode logHook
     -- io performGC -- really helps, but seems to trigger GC bugs?
 
     -- hide every window that was potentially visible before, but is not
-- 
cgit v1.2.3