gitit 0.3.4 → 0.3.4.1

raw patch · 3 files changed

+6/−6 lines, 3 files

Files

• Gitit.hs +1/−1
• Gitit/HAppS.hs +4/−4
• gitit.cabal +1/−1

@@ -63,7 +63,7 @@ import System.IO.Unsafe (unsafePerformIO)  gititVersion :: String-gititVersion = "0.3.3"+gititVersion = "0.3.4.1"  sessionTime :: Int sessionTime = 60 * 60     -- session will expire 1 hour after page request

@@ -33,10 +33,10 @@ 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

@@ -1,5 +1,5 @@ name:                gitit-version:             0.3.4+version:             0.3.4.1 Cabal-version:       >= 1.2 build-type:          Simple synopsis:            Wiki using HAppS, git, and pandoc.