mirror of
https://github.com/ilyakooo0/servant-reflex.git
synced 2024-09-11 07:15:29 +03:00
Dont use Text value constructor
This commit is contained in:
parent
e69a7ebfb4
commit
18fbb6dc41
@ -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 #-}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user