[Fencommits] fenserve: HTML-quote nicks

[Benja Fallenstein]

Mon Apr 30 23:43:09 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * HTML-quote nicks
diff -rN -u old-fenserve-1/notetaker/Main.hs new-fenserve-1/notetaker/Main.hs
--- old-fenserve-1/notetaker/Main.hs	2007-04-30 23:43:22.000000000 +0300
+++ new-fenserve-1/notetaker/Main.hs	2007-04-30 23:43:22.000000000 +0300
@@ -209,7 +209,7 @@
                          page (readPath (drop 2 line)) nick
                        else do
                          time <- getTime; let body = readBody line
-                         modify (++[Line time nick body])
+                         modify (++[Line time (quote nick) body])
                          bodyView body nick
                , h () POST $ ok $ \() () -> respond "Huh."
                , h (Prefix ["item"]) GET $ ok $ \[p] n -> page (readPath p) n