Changed a comment to clarify these functions.

Gitit/HAppS.hs

@@ -33,10 +33,10 @@ import Control.Monad (liftM)
 import Data.ByteString.Lazy.UTF8 (toString)
 import Codec.Binary.UTF8.String (encodeString, decodeString)
 
--- HAppS's look, lookRead, and lookCookieValue encode unicode characters
--- (outside the standard latin1 range) using decimal character
--- references. For gitit's purposes, we want them to return regular
--- unicode characters instead.
+-- Contents of an HTML text area or text field generated by Text.XHtml
+-- will often contain decimal character references.  We want to convert these
+-- to regular unicode characters.  We also need to use toString to
+-- convert from UTF-8, since HAppS doesn't do this.
 
 look :: String -> RqData String
 look = liftM (decodeCharacterReferences . toString) . HAppS.Server.lookBS