[logging helper
martin.hofmann@uni-bamberg.de**20090714022637] hunk ./src/Logging/Logger.hs 4
+    tp,
hunk ./src/Logging/Logger.hs 39
+
hunk ./src/Logging/Logger.hs 43
+tp :: (Show a, Pretty a) => String -> a -> a
+tp s = \x -> (trace $ s ++ (show.pretty $ x)) x
hunk ./src/Logging/Logger.hs 84
-                   ,debugging  :: Bool     -- ^Debug
-                   ,dumpLog  :: Bool}    -- ^Debug
+                   ,verbose  :: Bool     -- ^be verbose
+                   ,dumpLog  :: Bool}    -- ^dump to log file
hunk ./src/Logging/Logger.hs 87
-mkLogState v d l = LS v "" "" d l
+mkLogState vl v d = LS vl "" "" v d
hunk ./src/Logging/Logger.hs 166
-isDebugging :: (MonadState LogState m, MonadWriter Log m) =>m Bool
-isDebugging = gets debugging
+isVerbose :: (MonadState LogState m, MonadWriter Log m) =>m Bool
+isVerbose = gets verbose
hunk ./src/Logging/Logger.hs 169
-setDebugging ::  (MonadState LogState m, MonadWriter Log m) =>Bool -> m ()
-setDebugging d = modify (\l -> l{debugging = d})
+setVerbose ::  (MonadState LogState m, MonadWriter Log m) =>Bool -> m ()
+setVerbose d = modify (\l -> l{verbose = d})
hunk ./src/Logging/Logger.hs 188
-    liftM2 (||) isDumping isDebugging >>=
+    liftM2 (||) isDumping isVerbose >>=
hunk ./src/Logging/Logger.hs 193
-            isDebugging >>= flip when (lift3 . putStrLn . show $ msg)
+            isVerbose >>= flip when (lift3 . putStrLn . show $ msg)
hunk ./src/Logging/Logger.hs 203
-type LM = ELT IO
+type LM = ELT IO -- (ReaderT IO)
hunk ./src/Logging/Logger.hs 208
+