@@ -43,6 +43,7 @@ import Servant.API.BasicAuth
4343import Control.Exception
4444import Control.Monad (liftM)
4545import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)
46+import qualified Data.JSString.Text as T
4647import qualified Data.Aeson as A
4748import qualified Data.HashMap.Strict as H
4849import qualified Data.Text.Internal as T
@@ -449,7 +450,7 @@ aesonFromJSVal r = case jsonTypeOf r of
449450 propVals <- forM props $ \p -> do
450451 v <- MaybeT (aesonFromJSVal =<< OI.getProp p (OI.Object r))
451452 -- return (JSS.textFromJSString p, v)
452− return (T.Text p, v)
453+ return (T.textFromJSString p, v)
453454 return (A.Object (H.fromList propVals))
454455{-# INLINE aesonFromJSVal #-}
455456