@@ -43,6 +43,7 @@ import Servant.API.BasicAuth
43import Control.Exception
43import Control.Exception
44import Control.Monad (liftM)
44import Control.Monad (liftM)
45import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)
45import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)
46+import qualified Data.JSString.Text as T
46import qualified Data.Aeson as A
47import qualified Data.Aeson as A
47import qualified Data.HashMap.Strict as H
48import qualified Data.HashMap.Strict as H
48import qualified Data.Text.Internal as T
49import qualified Data.Text.Internal as T
@@ -449,7 +450,7 @@ aesonFromJSVal r = case jsonTypeOf r of
449 propVals <- forM props $ \p -> do
450 propVals <- forM props $ \p -> do
450 v <- MaybeT (aesonFromJSVal =<< OI.getProp p (OI.Object r))
451 v <- MaybeT (aesonFromJSVal =<< OI.getProp p (OI.Object r))
451 -- return (JSS.textFromJSString p, v)
452 -- return (JSS.textFromJSString p, v)
452− return (T.Text p, v)
453+ return (T.textFromJSString p, v)
453 return (A.Object (H.fromList propVals))
454 return (A.Object (H.fromList propVals))
454{-# INLINE aesonFromJSVal #-}
455{-# INLINE aesonFromJSVal #-}