ilyakooo0/servant-reflex
1
0
Fork 0
mirror of https://github.com/ilyakooo0/servant-reflex.git synced 2024-08-16 02:30:38 +03:00
Code Issues Projects Releases Wiki Activity

Dont use Text value constructor

Browse Source
This commit is contained in:
Greg Hale 2017-03-30 15:14:35 -04:00
parent e69a7ebfb4
commit 18fbb6dc41
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Servant/Common/Req.hs
View File

@ -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 #-}