[Fencommits] fenserve: keep unformatting old (and new) log lines before showing them in the log, but don't format new log lines before storing them in the system (HTML-quote then and then leave them alone)

[Benja Fallenstein]

Thu May 10 00:54:28 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * keep unformatting old (and new) log lines before showing them in the log, but don't format new log lines before storing them in the system (HTML-quote then and then leave them alone)
diff -rN -u old-fenserve-1/notetaker/Main.hs new-fenserve-1/notetaker/Main.hs
--- old-fenserve-1/notetaker/Main.hs	2007-05-10 00:54:47.000000000 +0300
+++ new-fenserve-1/notetaker/Main.hs	2007-05-10 00:54:47.000000000 +0300
@@ -99,7 +99,7 @@
            | ":unpage "  `isPrefixOf` s = readPath' s 8 $ \p "" -> Unpage p
            | ":revert "  `isPrefixOf` s, ((n,_):_) <- reads $ drop 8 s
                                         = Revert n
-           | otherwise                  = Body (format (quote s))
+           | otherwise                  = Body (quote s)
 
     where f s = format (quote s)