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
= \ 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")
}