[prettier printing
martin.hofmann@uni-bamberg.de**20090518095328] hunk ./src/UI/UIStarter.hs 42
-display d = displayS d ""
+display s x = displayIO stdout (render s x)
+
hunk ./src/UI/UIStarter.hs 135
-runCmd s (Yell st)              = putStrLn ("Igor says:" ++ st) >> return (False,s)
+runCmd s (Yell st)              = yell s st >> return (False,s)
hunk ./src/UI/UIStarter.hs 183
+yell s st = display s (blue (text "Igor says:") <+> text st <> linebreak) 