Skip to content

Commit 206bd4e

Browse files
committed
Rename some internal methods for clarity (Frozen => Immutable)
1 parent 487e409 commit 206bd4e

File tree

1 file changed

+15
-15
lines changed

1 file changed

+15
-15
lines changed

src/Node/Buffer.purs

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -194,37 +194,37 @@ unsafeFreezeImpl = pure <<< unsafeCoerce
194194
unsafeThawImpl :: forall buf m. Monad m => ImmutableBuffer -> m buf
195195
unsafeThawImpl = 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

203203
createImpl :: forall buf m. Monad m => Int -> m buf
204-
createImpl = usingToFrozen Immutable.create
204+
createImpl = usingToImmutable Immutable.create
205205

206206
foreign import copyAllImpl :: forall a buf m. a -> m buf
207207

208208
fromArrayImpl :: forall buf m. Monad m => Array Octet -> m buf
209-
fromArrayImpl = usingToFrozen Immutable.fromArray
209+
fromArrayImpl = usingToImmutable Immutable.fromArray
210210

211211
fromStringImpl :: forall buf m. Monad m => String -> Encoding -> m buf
212-
fromStringImpl s = usingToFrozen $ Immutable.fromString s
212+
fromStringImpl s = usingToImmutable $ Immutable.fromString s
213213

214214
fromArrayBufferImpl :: forall buf m. Monad m => ArrayBuffer -> m buf
215-
fromArrayBufferImpl = usingToFrozen Immutable.fromArrayBuffer
215+
fromArrayBufferImpl = usingToImmutable Immutable.fromArrayBuffer
216216

217217
toArrayBufferImpl :: forall buf m. Monad m => buf -> m ArrayBuffer
218-
toArrayBufferImpl = usingFromFrozen Immutable.toArrayBuffer
218+
toArrayBufferImpl = usingFromImmutable Immutable.toArrayBuffer
219219

220220
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
222222

223223
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'
225225

226226
toStringImpl :: forall buf m. Monad m => Encoding -> buf -> m String
227-
toStringImpl m = usingFromFrozen $ Immutable.toString m
227+
toStringImpl m = usingFromImmutable $ Immutable.toString m
228228

229229
writeImpl :: forall buf m. Monad m => BufferValueType -> Int -> Offset -> buf -> m Unit
230230
writeImpl = writeInternal <<< show
@@ -238,18 +238,18 @@ foreign import writeStringInternal ::
238238
forall buf m. String -> Offset -> Int -> String -> buf -> m Int
239239

240240
toArrayImpl :: forall buf m. Monad m => buf -> m (Array Octet)
241-
toArrayImpl = usingFromFrozen Immutable.toArray
241+
toArrayImpl = usingFromImmutable Immutable.toArray
242242

243243
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
245245

246246
foreign import setAtOffsetImpl :: forall buf m. Octet -> Offset -> buf -> m Unit
247247

248248
sliceImpl :: forall buf. Offset -> Offset -> buf -> buf
249249
sliceImpl = unsafeCoerce Immutable.slice
250250

251251
sizeImpl :: forall buf m. Monad m => buf -> m Int
252-
sizeImpl = usingFromFrozen Immutable.size
252+
sizeImpl = usingFromImmutable Immutable.size
253253

254254
concatImpl :: forall buf m. Array buf -> m buf
255255
concatImpl arrs = unsafeCoerce \_ -> Immutable.concat (unsafeCoerce arrs)

0 commit comments

Comments
 (0)