hasufell
/
streamly-filesystem
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rm redundant imports

This commit is contained in:
Julian Ospald 2020-01-29 21:34:03 +01:00
parent 3b4a7f445c
commit 51c280f9c8
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/Main.hs
View File

@ -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
@ -45,7 +38,7 @@ checkCopyFileHandle from to = do
copyLBS' content from copyLBS' content from
copyFileHandle' from to copyFileHandle' from to
fromContent <- readFileLBS from fromContent <- readFileLBS from
toContent <- readFileLBS to toContent <- readFileLBS to
(BSL.toStrict fromContent) `shouldBe` (BSL.toStrict toContent) (BSL.toStrict fromContent) `shouldBe` (BSL.toStrict toContent)