[Try to switch logging on/off via compiler optimization
martin.hofmann@uni-bamberg.de**20091009110905] hunk ./src/Logging/Logger.hs 185
-logging p msg   = getCurrentLogger >>= \l ->
-                  if _NOLOGGING then return () else handle $ LE  p l msg          
+logging p msg   = if _NOLOGGING then return () 
+                  else getCurrentLogger >>= \l -> handle $ LE  p l msg          
hunk ./src/Logging/Logger.hs 205
-runELT m s =  runWriterT (runErrorT (evalStateT m s))
+runELT m s 
+    | _NOLOGGING = dropWriterT (runErrorT (evalStateT m s)) emptyLog 
+    | otherwise  =  runWriterT (runErrorT (evalStateT m s))
hunk ./src/Logging/Logger.hs 213
-
+dropWriterT :: (Monad m) => (WriterT w m a) ->  w -> m (a,w)
+dropWriterT w d = do
+    (a,_) <- runWriterT w 
+    return (a,d)