diff options
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/MainFastCGI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs index f4b6a920f..a769e23e0 100644 --- a/src/server/MainFastCGI.hs +++ b/src/server/MainFastCGI.hs @@ -7,7 +7,7 @@ import URLEncoding import Network.CGI import Text.JSON -import qualified Codec.Binary.UTF8.String as UTF8 (encodeString) +import qualified Codec.Binary.UTF8.String as UTF8 (encodeString, decodeString) import Control.Monad import Data.Char @@ -42,7 +42,7 @@ cgiMain pgf = outputJSON json where getText :: CGI String - getText = liftM (maybe "" urlDecodeUnicode) $ getInput "input" + getText = liftM (maybe "" (urlDecodeUnicode . UTF8.decodeString)) $ getInput "input" getTree :: CGI PGF.Tree getTree = do mt <- getInput "tree" |