4635e20 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Streamly: Internal: FileSystem: Cleanup hlint warnings

4635e20Sanchayan Maity7 years ago

src/Streamly/Internal/FileSystem/Dir.hs−4

compare with master

unifiedsplit

@@ -1,8 +1,4 @@

1{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3−{-# LANGUAGE MagicHash #-}

4−{-# LANGUAGE RecordWildCards #-}

5−{-# LANGUAGE UnboxedTuples #-}

7#include "inline.hs"

3#include "inline.hs"

src/Streamly/Internal/FileSystem/File.hs+5−9

@@ -1,9 +1,5 @@

1{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE MagicHash #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE UnboxedTuples #-}

8#include "inline.hs"

4#include "inline.hs"

@@ -180,14 +176,14 @@ usingFile =

180-- @since 0.7.0

176-- @since 0.7.0

181{-# INLINABLE writeArray #-}

177{-# INLINABLE writeArray #-}

182writeArray :: Storable a => FilePath -> Array a -> IO ()

178writeArray :: Storable a => FilePath -> Array a -> IO ()

183−writeArray file arr = SIO.withFile file WriteMode (\h -> FH.writeArray h arr)

179+writeArray file arr = SIO.withFile file WriteMode (`FH.writeArray` arr)

184

180

185-- | append an array to a file.

181-- | append an array to a file.

186--

182--

187-- @since 0.7.0

183-- @since 0.7.0

188{-# INLINABLE appendArray #-}

184{-# INLINABLE appendArray #-}

189appendArray :: Storable a => FilePath -> Array a -> IO ()

185appendArray :: Storable a => FilePath -> Array a -> IO ()

190−appendArray file arr = SIO.withFile file AppendMode (\h -> FH.writeArray h arr)

186+appendArray file arr = SIO.withFile file AppendMode (`FH.writeArray` arr)

191

187

192-------------------------------------------------------------------------------

188-------------------------------------------------------------------------------

193-- Stream of Arrays IO

189-- Stream of Arrays IO

@@ -353,12 +349,12 @@ writeChunks path = Fold step initial extract

353 initial = do

349 initial = do

354 h <- liftIO (openFile path WriteMode)

350 h <- liftIO (openFile path WriteMode)

355 fld <- FL.initialize (FH.writeChunks h)

351 fld <- FL.initialize (FH.writeChunks h)

356− `MC.onException` (liftIO $ hClose h)

352+ `MC.onException` liftIO (hClose h)

357 return (fld, h)

353 return (fld, h)

358 step (fld, h) x = do

354 step (fld, h) x = do

359− r <- FL.runStep fld x `MC.onException` (liftIO $ hClose h)

355+ r <- FL.runStep fld x `MC.onException` liftIO (hClose h)

360 return (r, h)

356 return (r, h)

361− extract ((Fold _ initial1 extract1), h) = do

357+ extract (Fold _ initial1 extract1, h) = do

362 liftIO $ hClose h

358 liftIO $ hClose h

363 initial1 >>= extract1

359 initial1 >>= extract1

364

360

src/Streamly/Internal/FileSystem/Handle.hs+1−4

@@ -1,9 +1,6 @@

1{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE MagicHash #-}

5{-# LANGUAGE RecordWildCards #-}

3{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE UnboxedTuples #-}

8#include "inline.hs"

5#include "inline.hs"

@@ -352,7 +349,7 @@ writeArray h Array{..} = withForeignPtr aStart $ \p -> hPutBuf h p aLen

352{-# INLINE fromChunks #-}

349{-# INLINE fromChunks #-}

353fromChunks :: (MonadIO m, Storable a)

350fromChunks :: (MonadIO m, Storable a)

354 => Handle -> SerialT m (Array a) -> m ()

351 => Handle -> SerialT m (Array a) -> m ()

355−fromChunks h m = S.mapM_ (liftIO . writeArray h) m

352+fromChunks h = S.mapM_ (liftIO . writeArray h)

356

353

357-- | Write a stream of chunks to standard output.

354-- | Write a stream of chunks to standard output.

358--

355--