diff options
Diffstat (limited to 'src/server/MainFastCGI.hs')
| -rw-r--r-- | src/server/MainFastCGI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs index 230e09b00..b7af9fce4 100644 --- a/src/server/MainFastCGI.hs +++ b/src/server/MainFastCGI.hs @@ -3,6 +3,7 @@ import PGF (PGF) import qualified PGF import FastCGIUtils +import URLEncoding import Network.CGI import Text.JSON @@ -42,7 +43,7 @@ cgiMain pgf = outputJSON json where getText :: CGI String - getText = liftM (fromMaybe "") $ getInput "input" + getText = liftM (maybe "" urlDecodeUnicode) $ getInput "input" getTree :: CGI PGF.Tree getTree = do mt <- getInput "tree" |