@@ -194,37 +194,37 @@ unsafeFreezeImpl = pure <<< unsafeCoerce
194194unsafeThawImpl :: forall buf m . Monad m => ImmutableBuffer -> m buf
195195unsafeThawImpl = pure <<< unsafeCoerce
196196
197- usingFromFrozen :: forall buf m a . Monad m => (ImmutableBuffer -> a ) -> buf -> m a
198- usingFromFrozen f buf = f <$> unsafeFreezeImpl buf
197+ usingFromImmutable :: forall buf m a . Monad m => (ImmutableBuffer -> a ) -> buf -> m a
198+ usingFromImmutable f buf = f <$> unsafeFreezeImpl buf
199199
200- usingToFrozen :: forall buf m a . Monad m => (a -> ImmutableBuffer ) -> a -> m buf
201- usingToFrozen f x = unsafeThawImpl $ f x
200+ usingToImmutable :: forall buf m a . Monad m => (a -> ImmutableBuffer ) -> a -> m buf
201+ usingToImmutable f x = unsafeThawImpl $ f x
202202
203203createImpl :: forall buf m . Monad m => Int -> m buf
204- createImpl = usingToFrozen Immutable .create
204+ createImpl = usingToImmutable Immutable .create
205205
206206foreign import copyAllImpl :: forall a buf m . a -> m buf
207207
208208fromArrayImpl :: forall buf m . Monad m => Array Octet -> m buf
209- fromArrayImpl = usingToFrozen Immutable .fromArray
209+ fromArrayImpl = usingToImmutable Immutable .fromArray
210210
211211fromStringImpl :: forall buf m . Monad m => String -> Encoding -> m buf
212- fromStringImpl s = usingToFrozen $ Immutable .fromString s
212+ fromStringImpl s = usingToImmutable $ Immutable .fromString s
213213
214214fromArrayBufferImpl :: forall buf m . Monad m => ArrayBuffer -> m buf
215- fromArrayBufferImpl = usingToFrozen Immutable .fromArrayBuffer
215+ fromArrayBufferImpl = usingToImmutable Immutable .fromArrayBuffer
216216
217217toArrayBufferImpl :: forall buf m . Monad m => buf -> m ArrayBuffer
218- toArrayBufferImpl = usingFromFrozen Immutable .toArrayBuffer
218+ toArrayBufferImpl = usingFromImmutable Immutable .toArrayBuffer
219219
220220readImpl :: forall buf m . Monad m => BufferValueType -> Offset -> buf -> m Int
221- readImpl t o = usingFromFrozen $ Immutable .read t o
221+ readImpl t o = usingFromImmutable $ Immutable .read t o
222222
223223readStringImpl :: forall buf m . Monad m => Encoding -> Offset -> Offset -> buf -> m String
224- readStringImpl m o o' = usingFromFrozen $ Immutable .readString m o o'
224+ readStringImpl m o o' = usingFromImmutable $ Immutable .readString m o o'
225225
226226toStringImpl :: forall buf m . Monad m => Encoding -> buf -> m String
227- toStringImpl m = usingFromFrozen $ Immutable .toString m
227+ toStringImpl m = usingFromImmutable $ Immutable .toString m
228228
229229writeImpl :: forall buf m . Monad m => BufferValueType -> Int -> Offset -> buf -> m Unit
230230writeImpl = writeInternal <<< show
@@ -238,18 +238,18 @@ foreign import writeStringInternal ::
238238 forall buf m . String -> Offset -> Int -> String -> buf -> m Int
239239
240240toArrayImpl :: forall buf m . Monad m => buf -> m (Array Octet )
241- toArrayImpl = usingFromFrozen Immutable .toArray
241+ toArrayImpl = usingFromImmutable Immutable .toArray
242242
243243getAtOffsetImpl :: forall buf m . Monad m => Offset -> buf -> m (Maybe Octet )
244- getAtOffsetImpl o = usingFromFrozen $ Immutable .getAtOffset o
244+ getAtOffsetImpl o = usingFromImmutable $ Immutable .getAtOffset o
245245
246246foreign import setAtOffsetImpl :: forall buf m . Octet -> Offset -> buf -> m Unit
247247
248248sliceImpl :: forall buf . Offset -> Offset -> buf -> buf
249249sliceImpl = unsafeCoerce Immutable .slice
250250
251251sizeImpl :: forall buf m . Monad m => buf -> m Int
252- sizeImpl = usingFromFrozen Immutable .size
252+ sizeImpl = usingFromImmutable Immutable .size
253253
254254concatImpl :: forall buf m . Array buf -> m buf
255255concatImpl arrs = unsafeCoerce \_ -> Immutable .concat (unsafeCoerce arrs)
0 commit comments