X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FWiki%2FInterpreter%2FPageList.hs;h=4faee0f091ca48f2fd1cdce27895308d8eb2984f;hp=d94f67ea1545a597b511c8f116e8fac5ebe37c44;hb=45bce2c29948649f74ada71f2fa851bdb812e96c;hpb=42f51754dea02201aececaacbf194d714cd58aaf

diff --git a/Rakka/Wiki/Interpreter/PageList.hs b/Rakka/Wiki/Interpreter/PageList.hs
index d94f67e..4faee0f 100644
--- a/Rakka/Wiki/Interpreter/PageList.hs
+++ b/Rakka/Wiki/Interpreter/PageList.hs
@@ -9,6 +9,7 @@ module Rakka.Wiki.Interpreter.PageList
     where
 import Control.Applicative
 import Control.Monad
+import qualified Data.ByteString.Char8 as C8
 import Data.Maybe
 import Data.Monoid.Unicode
 import qualified Data.Text as T
@@ -39,9 +40,9 @@ recentUpdatesURLInterp
           = \ ctx _ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
                           let uri = baseURI {
                                       uriPath  = uriPath baseURI </> "search.html"
-                                    , uriQuery = '?' : mkQueryString [ ("q"    , "[UVSET]")
-                                                                     , ("order", "@mdate NUMD")
-                                                                     ]
+                                    , uriQuery = '?' : C8.unpack (mkQueryString [ ("q"    , "[UVSET]")
+                                                                                , ("order", "@mdate NUMD")
+                                                                                ])
                                     }
                           return $ ExternalLink uri (Just "List all pages")
       }