GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fastcgi server: decode UTF-8 inputs produced by the gwt client

Browse Source
This commit is contained in:
bjorn
2008-09-15 15:20:15 +00:00
parent 1579174e14
commit a43ed0f99f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/server/MainFastCGI.hs
View File

@@ -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"