[output raw data to stdout
martin.hofmann@uni-bamberg.de**20091014073622] hunk ./src/Logging/Logger.hs 4
-    tp,ts,
+    tp,ts,lift3,lputStrLn,lputDoc,
hunk ./src/Logging/Logger.hs 47
+lift3 = lift . lift . lift
+
+lputStrLn = lift3 . putStrLn
+lputDoc = lift3 . putDoc
+
hunk ./src/Logging/Logger.hs 135
-            isVerbose >>= flip when (lift3 . putStrLn . show $ msg) >>
+            isVerbose >>= flip when (lputStrLn . show $ msg) >>
hunk ./src/Logging/Logger.hs 138
-lift3 = lift . lift . lift
-     
hunk ./src/SynthesisEngine.hs 50
-    logDE ( linebreak <>
-            text "IGOR initialised to:" <$>
-            indent 2 (pretty igordata))
+    logDE ( linebreak <> text "IGOR initialised to:" <$> indent 2 (pretty igordata))
hunk ./src/SynthesisEngine.hs 55
-                       
-    return . ((,) l) . niceify . outputraw $ simplify (scr_simplify conf) $ hs
+    let hs' = simplify (scr_simplify conf) $ hs
+    when (scr_debug conf) (outputraw hs')
+    return . ((,) l) . niceify $ hs'
hunk ./src/SynthesisEngine.hs 60
-    outputraw r | (scr_debug conf) =  ts ("\nRAW I/O TGT\n" ++ (show tgts) ++
-                                          "\nRAW I/O BGK\n" ++ (show bgks) ++ 
-                                          "\nRAW RESULT\n")
-                                         (map reverse r) 
-                | otherwise = r
+    outputraw hs = lputDoc  $ linebreak <> text "### BEGIN RAW DATA ###" <$> 
+                              text "I/O TGT" <$> (text . show $ tgts) <$>
+                              text "I/O BGK" <$> (text . show $ bgks) <$> 
+                              text "RESULTS" <$> (text . show $ map reverse hs) <$>
+                              text "### END RAW DATA ###" <> linebreak