From 18fbb6dc4180b5c7b41b845535a81a4425b3f0e6 Mon Sep 17 00:00:00 2001 From: Greg Hale Date: Thu, 30 Mar 2017 15:14:35 -0400 Subject: [PATCH] Dont use Text value constructor --- src/Servant/Common/Req.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Servant/Common/Req.hs b/src/Servant/Common/Req.hs index 5974be5..e135587 100644 --- a/src/Servant/Common/Req.hs +++ b/src/Servant/Common/Req.hs @@ -43,6 +43,7 @@ import Servant.API.BasicAuth import Control.Exception import Control.Monad (liftM) import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT) +import qualified Data.JSString.Text as T import qualified Data.Aeson as A import qualified Data.HashMap.Strict as H import qualified Data.Text.Internal as T @@ -449,7 +450,7 @@ aesonFromJSVal r = case jsonTypeOf r of propVals <- forM props $ \p -> do v <- MaybeT (aesonFromJSVal =<< OI.getProp p (OI.Object r)) -- return (JSS.textFromJSString p, v) - return (T.Text p, v) + return (T.textFromJSString p, v) return (A.Object (H.fromList propVals)) {-# INLINE aesonFromJSVal #-}