merge branch origin/master

[Rakka.git] / Rakka / Wiki / Interpreter / PageList.hs

diff --git a/Rakka/Wiki/Interpreter/PageList.hs b/Rakka/Wiki/Interpreter/PageList.hs
index d94f67ea1545a597b511c8f116e8fac5ebe37c44..4faee0f091ca48f2fd1cdce27895308d8eb2984f 100644 (file)
--- 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")
       }