diff options
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 |