msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

added decoding from UTF8 in MorphoService.hs

Browse Source
This commit is contained in:
krasimir
2009-06-04 16:39:06 +00:00
parent e3052a25bd
commit 702bc404ec
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/server/MorphoService.hs
View File

@@ -10,7 +10,7 @@ import GF.Text.UTF8
import Network.FastCGI import Network.FastCGI
import Text.JSON import Text.JSON
import qualified Codec.Binary.UTF8.String as UTF8 (encodeString) import qualified Codec.Binary.UTF8.String as UTF8 (decodeString, encodeString)
import Data.ByteString.Char8 as BS import Data.ByteString.Char8 as BS
import Control.Monad import Control.Monad
@@ -54,7 +54,7 @@ cgiMain sgr =
where where
getTerm :: CGI String getTerm :: CGI String
getTerm = do mt <- getInput "term" getTerm = do mt <- getInput "term"
maybe (throwCGIError 400 "No term given" ["No term given"]) (return . urlDecodeUnicode) mt maybe (throwCGIError 400 "No term given" ["No term given"]) (return . urlDecodeUnicode . UTF8.decodeString) mt
doEval :: Grammar -> String -> Err JSValue doEval :: Grammar -> String -> Err JSValue
doEval sgr t = liftM termToJSValue $ eval sgr t doEval sgr t = liftM termToJSValue $ eval sgr t