
21 Aug
2007
21 Aug
'07
4:05 p.m.
On Tue, Aug 21, 2007 at 06:09:45PM +0200, Lukas Mai wrote:
logHook = withWindowSet $ \ws -> do let d = pprWindowSet ws t <- maybe (return "") (liftM show . getName) (W.peek ws) io . putStrLn $ show t ++ d
Way over my head. I just know it works. Thanks a lot. Kai