@@ -194,37 +194,37 @@ unsafeFreezeImpl = pure <<< unsafeCoerce
194
194
unsafeThawImpl :: forall buf m . Monad m => ImmutableBuffer -> m buf
195
195
unsafeThawImpl = pure <<< unsafeCoerce
196
196
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
199
199
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
202
202
203
203
createImpl :: forall buf m . Monad m => Int -> m buf
204
- createImpl = usingToFrozen Immutable .create
204
+ createImpl = usingToImmutable Immutable .create
205
205
206
206
foreign import copyAllImpl :: forall a buf m . a -> m buf
207
207
208
208
fromArrayImpl :: forall buf m . Monad m => Array Octet -> m buf
209
- fromArrayImpl = usingToFrozen Immutable .fromArray
209
+ fromArrayImpl = usingToImmutable Immutable .fromArray
210
210
211
211
fromStringImpl :: forall buf m . Monad m => String -> Encoding -> m buf
212
- fromStringImpl s = usingToFrozen $ Immutable .fromString s
212
+ fromStringImpl s = usingToImmutable $ Immutable .fromString s
213
213
214
214
fromArrayBufferImpl :: forall buf m . Monad m => ArrayBuffer -> m buf
215
- fromArrayBufferImpl = usingToFrozen Immutable .fromArrayBuffer
215
+ fromArrayBufferImpl = usingToImmutable Immutable .fromArrayBuffer
216
216
217
217
toArrayBufferImpl :: forall buf m . Monad m => buf -> m ArrayBuffer
218
- toArrayBufferImpl = usingFromFrozen Immutable .toArrayBuffer
218
+ toArrayBufferImpl = usingFromImmutable Immutable .toArrayBuffer
219
219
220
220
readImpl :: 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
222
222
223
223
readStringImpl :: 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'
225
225
226
226
toStringImpl :: forall buf m . Monad m => Encoding -> buf -> m String
227
- toStringImpl m = usingFromFrozen $ Immutable .toString m
227
+ toStringImpl m = usingFromImmutable $ Immutable .toString m
228
228
229
229
writeImpl :: forall buf m . Monad m => BufferValueType -> Int -> Offset -> buf -> m Unit
230
230
writeImpl = writeInternal <<< show
@@ -238,18 +238,18 @@ foreign import writeStringInternal ::
238
238
forall buf m . String -> Offset -> Int -> String -> buf -> m Int
239
239
240
240
toArrayImpl :: forall buf m . Monad m => buf -> m (Array Octet )
241
- toArrayImpl = usingFromFrozen Immutable .toArray
241
+ toArrayImpl = usingFromImmutable Immutable .toArray
242
242
243
243
getAtOffsetImpl :: forall buf m . Monad m => Offset -> buf -> m (Maybe Octet )
244
- getAtOffsetImpl o = usingFromFrozen $ Immutable .getAtOffset o
244
+ getAtOffsetImpl o = usingFromImmutable $ Immutable .getAtOffset o
245
245
246
246
foreign import setAtOffsetImpl :: forall buf m . Octet -> Offset -> buf -> m Unit
247
247
248
248
sliceImpl :: forall buf . Offset -> Offset -> buf -> buf
249
249
sliceImpl = unsafeCoerce Immutable .slice
250
250
251
251
sizeImpl :: forall buf m . Monad m => buf -> m Int
252
- sizeImpl = usingFromFrozen Immutable .size
252
+ sizeImpl = usingFromImmutable Immutable .size
253
253
254
254
concatImpl :: forall buf m . Array buf -> m buf
255
255
concatImpl arrs = unsafeCoerce \_ -> Immutable .concat (unsafeCoerce arrs)
0 commit comments