[prettier printing
martin.hofmann@uni-bamberg.de**20090421095757] hunk ./src/Context/ContextBuilder.hs 359
-        Nothing   -> fail $ "Not in Context: " ++ (show n)
+        Nothing   -> fail $ "No type in Context for '" ++ (show n) ++"'"
hunk ./src/Context/ModuleContext.hs 94
-               (indent 2 $ text "Bindings: " <$> pretty (mctx_bindings ctx) <$>
-                           text "Types   : " <$> pretty (mctx_types ctx) <$>
-                           text "Ctors   : " <$> pretty (mctx_ctors ctx) <$>
-                           text "Classes : " <$> pretty (mctx_classes ctx) <$>
-                           text "Members : " <$> pretty (mctx_members ctx) <$>
-                           text "Instancs: " <$> pretty (mctx_instances ctx) <$>
-                           text "Synonyms: " <$> pretty (mctx_typesyns ctx))
+               (indent 2 $ text "Bindings: " <$> indent 2 (pretty (mctx_bindings ctx)) <$>
+                           text "Types   : " <$> indent 2 (pretty (mctx_types ctx)) <$>
+                           text "Ctors   : " <$> indent 2 (pretty (mctx_ctors ctx)) <$>
+                           text "Classes : " <$> indent 2 (pretty (mctx_classes ctx)) <$>
+                           text "Members : " <$> indent 2 (pretty (mctx_members ctx)) <$>
+                           text "Instancs: " <$> indent 2 (pretty (mctx_instances ctx)) <$>
+                           text "Synonyms: " <$> indent 2 (pretty (mctx_typesyns ctx)))
hunk ./src/Data/Rules.hs 73
-	pretty = text.show
+    pretty (Arg i pos) = text "Arg" <> int i <$> pretty pos 
+    pretty (Body pos)  = text "Body" <$> pretty pos 
hunk ./src/Logging/PrettyPrinter.hs 22
---import System.Mem
+import System.Time
hunk ./src/Logging/PrettyPrinter.hs 132
+    
+instance Pretty TimeDiff where
+    pretty t 
+        | tdYear t == 0 && tdMonth t == 0 = 
+            text (show $ 24 * tdDay t + tdHour t) <> text "h" <>
+            text (show $ tdMin t) <> text "m" <>
+            text (show $ fromIntegral (tdSec t)  + 1.0e-12 *  fromIntegral (tdPicosec t)) <> text "s"
+        | otherwise = text "Cannot print a TimeDuff with Month or Year field set"
+            
hunk ./src/Syntax/Expressions.hs 971
---            
+            