diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-04 16:39:06 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-04 16:39:06 +0000 |
| commit | 02ec4e53297f5f847260eb6f3279cd6412e7027a (patch) | |
| tree | 894493959292d9034d903e2a319ce3dfb95f262e /src/server | |
| parent | 3587a3a7f67e4a46403dfe1d567d9162ae760979 (diff) | |
added decoding from UTF8 in MorphoService.hs
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/MorphoService.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/MorphoService.hs b/src/server/MorphoService.hs index 15590b356..146ba2307 100644 --- a/src/server/MorphoService.hs +++ b/src/server/MorphoService.hs @@ -10,7 +10,7 @@ import GF.Text.UTF8 import Network.FastCGI 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 Control.Monad @@ -54,7 +54,7 @@ cgiMain sgr = where getTerm :: CGI String 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 sgr t = liftM termToJSValue $ eval sgr t |