composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-11 19:47:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix Hlint issues

Browse Source
This commit is contained in:
Ranjeet Kumar Ranjan 2021-12-01 21:06:50 +05:30
parent c26da834da
commit 88b0da8714
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Streamly/Internal/Data/Array/Foreign/Mut/Type.hs
View File

@ -963,7 +963,7 @@ resize i arr@Array{..} = do
{-# INLINE resizeExp #-}
resizeExp :: forall m a. (MonadIO m, Storable a) =>
Int -> Array a -> m (Array a)
resizeExp i arr@ Array{..} = do
resizeExp i arr@Array{..} = do
let req = sizeOf (undefined :: a) * i
len = length arr
size2 = roundUpToPower2 req
@ -1031,7 +1031,7 @@ reallocAlignedN elemSize alignSize elemCount newSize Array{..} = do
{-# INLINE truncateWith #-}
truncateWith :: forall m a. (MonadIO m, Storable a) =>
Int -> (Int -> Int) -> Array a -> m (Array a)
truncateWith n f arr@ Array{..} = liftIO $ do
truncateWith n f arr@Array{..} = liftIO $ do
let fLen = length arr - n
capacity = aBound `minusPtr` arrStart
newCap = f capacity