@@ -52,6 +52,9 @@ it depends on
5252[`Data.TextDecoding.decodeUtf8`](https://pursuit.purescript.org/packages/purescript-text-encoding/docs/Data.TextDecoding#v:decodeUtf8).
5353
5454```purescript
55+import Effect (Effect, liftEffect)
56+import Control.Monad.Trans.Class (lift)
57+
5558mkTypedArray :: Data.ArrayBuffer.Types.DataView -> Effect Data.ArrayBuffer.Types.Uint8Array
5659mkTypedArray dv = do
5760 let buffer = Data.ArrayBuffer.DataView.buffer dv
@@ -65,7 +68,7 @@ do
6568 -- in bytes.
6669 length <- anyUint32be
6770 stringview <- takeN $ UInt.toInt length
68− stringarray <- liftEffect $ mkTypedArray stringview
71+ stringarray <- lift $ liftEffect $ mkTypedArray stringview
6972 case Data.TextDecoding.decodeUtf8 stringarray of
7073 Left err -> Data.Parsing.Parser.fail $ show err
7174 Right s -> pure s