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
import Data.ByteString ( ByteString )
import Data.Word ( Word8 )
import GHC.IO.Handle ( Handle )
import Streamly
import Streamly.FileSystem.Handle ( readChunks )
import Streamly.Memory.Array ( Array )
import System.IO ( openFile
, IOMode(ReadMode)
)
import System.IO.Temp ( withSystemTempFile )
import Test.Hspec
import Test.Hspec.QuickCheck
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BSL
import Streamly.External.FileSystem.Handle.Posix
import qualified Streamly.Prelude as S
checkCopyLBS :: FilePath -> Handle -> IO ()
checkCopyLBS filename handle' = do
@ -45,7 +38,7 @@ checkCopyFileHandle from to = do
copyLBS' content from
copyFileHandle' from to
fromContent <- readFileLBS from
toContent <- readFileLBS to
toContent <- readFileLBS to
(BSL.toStrict fromContent) `shouldBe` (BSL.toStrict toContent)