From 131ec1e1f166aaaf697104c26a94754054ed70c9 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 23 May 2010 21:48:32 +0000 Subject: [PATCH] web: remove url encoding/decoding that seems out of place --- Hledger/Cli/Commands/Web.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Hledger/Cli/Commands/Web.hs b/Hledger/Cli/Commands/Web.hs index 171c40cb1..3b81d0302 100644 --- a/Hledger/Cli/Commands/Web.hs +++ b/Hledger/Cli/Commands/Web.hs @@ -13,7 +13,6 @@ import Control.Applicative.Error (Failing(Success,Failure)) import Control.Concurrent import Control.Monad.Reader (ask) import Data.IORef (newIORef, atomicModifyIORef) -import Network.HTTP (urlEncode, urlDecode) import System.Directory (getModificationTime) import System.IO.Storage (withStore, putValue, getValue) import System.Time (ClockTime, getClockTime, diffClockTimes, TimeDiff(TimeDiff)) @@ -87,7 +86,7 @@ server opts args j = let a = intercalate "+" $ reqparam env "a" p = intercalate "+" $ reqparam env "p" opts' = opts ++ [Period p] - args' = args ++ (map urlDecode $ words a) + args' = args ++ words a j' <- fromJust `fmap` getValue "hledger" "journal" j'' <- journalReloadIfChanged opts' args' j' -- declare path-specific request handlers @@ -214,7 +213,7 @@ navlinks :: Hack.Env -> HSP XML navlinks _ = do a <- getParamOrNull "a" p <- getParamOrNull "p" - let addparams=(++(printf "?a=%s&p=%s" (urlEncode a) (urlEncode p))) + let addparams=(++(printf "?a=%s&p=%s" a p)) link s = <% s %>