[code cometics
martin.hofmann@uni-bamberg.de**20090629035543] hunk ./src/Logging/Logger.hs 183
-handle (LE p l msg) =
-    do lvl <- getPriority
-       gll <- getGlobalLogLevel
-       when ((isPrefixOf gll l) && (p <= lvl)) (do
+handle (LE p l msg) = 
+    liftM2 (||) isDumping isDebugging >>=
+    flip when (do
+        lvl <- getPriority
+        gll <- getGlobalLogLevel
+        when ((isPrefixOf gll l) && (p <= lvl)) (do
hunk ./src/Logging/Logger.hs 190
-            --isDumping >>= flip when (lift3 . (appendFile "dump.txt") . show $ msg)
-            isDumping >>= flip when ( tell $ Log [LE p l msg])
-            return ()
-            )
-       return() 
-
+            isDumping >>= flip when ( tell $ Log [LE p l msg]) >> return ()
+            )) 