diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-15 15:20:15 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-15 15:20:15 +0000 |
| commit | 6fce3054e3726cd435741e443dc53d610c4da71f (patch) | |
| tree | e74e9049f1f689cfdd7325ce32ec0474d1ba6c9e /src/server/MainFastCGI.hs | |
| parent | b6635b200fc9977a016adfdaf9f96d6b088d9a6e (diff) | |
fastcgi server: decode UTF-8 inputs produced by the gwt client
Diffstat (limited to 'src/server/MainFastCGI.hs')
| -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" |