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 3587a3a7f6
commit 02ec4e5329
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