diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-12 03:42:17 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-12 03:42:17 +0200 |
commit | 6c6b541ef1e74fc7f0905fd0d39d5fe867c22a6f (patch) | |
tree | 8f21050abd58a0c407b0253aa9bff3115dec2c8d /Operations.hs | |
parent | d4a3b83436bcc22be93b8084a52a898b952ee94f (diff) | |
download | metatile-6c6b541ef1e74fc7f0905fd0d39d5fe867c22a6f.tar metatile-6c6b541ef1e74fc7f0905fd0d39d5fe867c22a6f.zip |
Add userCode function for the popular m `catchX` return ()
darcs-hash:20071012014217-a5988-06b6f1519b5f87fcbc8220ad5bd69181c721635a
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |