Rm redundant imports
This commit is contained in:
parent
3b4a7f445c
commit
51c280f9c8
@ -3,23 +3,16 @@
|
|||||||
|
|
||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
import Data.ByteString ( ByteString )
|
|
||||||
import Data.Word ( Word8 )
|
|
||||||
import GHC.IO.Handle ( Handle )
|
import GHC.IO.Handle ( Handle )
|
||||||
import Streamly
|
|
||||||
import Streamly.FileSystem.Handle ( readChunks )
|
|
||||||
import Streamly.Memory.Array ( Array )
|
|
||||||
import System.IO ( openFile
|
import System.IO ( openFile
|
||||||
, IOMode(ReadMode)
|
, IOMode(ReadMode)
|
||||||
)
|
)
|
||||||
import System.IO.Temp ( withSystemTempFile )
|
import System.IO.Temp ( withSystemTempFile )
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
import Test.Hspec.QuickCheck
|
|
||||||
|
|
||||||
import qualified Data.ByteString as BS
|
import qualified Data.ByteString as BS
|
||||||
import qualified Data.ByteString.Lazy as BSL
|
import qualified Data.ByteString.Lazy as BSL
|
||||||
import Streamly.External.FileSystem.Handle.Posix
|
import Streamly.External.FileSystem.Handle.Posix
|
||||||
import qualified Streamly.Prelude as S
|
|
||||||
|
|
||||||
checkCopyLBS :: FilePath -> Handle -> IO ()
|
checkCopyLBS :: FilePath -> Handle -> IO ()
|
||||||
checkCopyLBS filename handle' = do
|
checkCopyLBS filename handle' = do
|
||||||
|
Loading…
Reference in New Issue
Block a user