69785a3 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

GHC-9: Remove NOINLINE on some benchmarks

69785a3Harendra Kumar5 years ago

benchmark/Streamly/Benchmark/FileSystem/Handle/ReadWrite.hs−2

@@ -159,7 +159,6 @@ o_1_space_copy_fromBytes env =

159 ]

160

161-- | Send the file contents ('defaultChunkSize') to /dev/null

162−{-# NOINLINE writeReadWithBufferOf #-}

163writeReadWithBufferOf :: Handle -> Handle -> IO ()

162writeReadWithBufferOf :: Handle -> Handle -> IO ()

164writeReadWithBufferOf inh devNull = IUF.fold fld unf (defaultChunkSize, inh)

163writeReadWithBufferOf inh devNull = IUF.fold fld unf (defaultChunkSize, inh)

165

164

@@ -177,7 +176,6 @@ inspect $ 'writeReadWithBufferOf `hasNoType` ''AT.ArrayUnsafe -- FH.write/writeN

177#endif

176#endif

178

177

179-- | Send the file contents ('AT.defaultChunkSize') to /dev/null

178-- | Send the file contents ('AT.defaultChunkSize') to /dev/null

180−{-# NOINLINE writeRead #-}

181writeRead :: Handle -> Handle -> IO ()

179writeRead :: Handle -> Handle -> IO ()

182writeRead inh devNull = IUF.fold fld unf inh

180writeRead inh devNull = IUF.fold fld unf inh

183

181