[Fencommits] fenserve: unformat non-command lines in the logs

Tuukka Hastrup Tuukka.Hastrup at iki.fi
Wed May 9 18:50:28 EEST 2007


Wed May  9 18:43:48 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * unformat non-command lines in the logs
diff -rN -u old-fenserve/notetaker/Main.hs new-fenserve/notetaker/Main.hs
--- old-fenserve/notetaker/Main.hs	2007-05-09 18:50:28.000000000 +0300
+++ new-fenserve/notetaker/Main.hs	2007-05-09 18:50:28.000000000 +0300
@@ -178,7 +178,7 @@
  ++ renderTime time ++ " " ++ renderBody nick body
                   
 renderBody :: String -> Body -> String
-renderBody nick (Body s) = printf "&lt;<b>%s</b>&gt; %s" nick s
+renderBody nick (Body s) = printf "&lt;<b>%s</b>&gt; %s" nick (unformat s)
 renderBody nick body     = printf "<i><b>%s</b> %s" nick (msg body) where
     msg :: Body -> String
     msg (Add [] l)      = printf "adds:</i> %s" l




More information about the Fencommits mailing list