@@ -1,18 +1,12 @@
11import qualified Streamly.Internal.Prelude as S
2−import qualified Streamly.Data.Fold as FL
3−-- import qualified Streamly.Memory.Array as A
4−import qualified Streamly.Internal.Memory.ArrayStream as AS
52import qualified Streamly.Internal.FileSystem.Handle as IFH
63import qualified Streamly.FileSystem.Handle as FH
74import qualified System.IO as FH
8−-- import qualified Streamly.FileSystem.FD as FH
9−-- import qualified Streamly.Data.Unicode.Stream as US
105
116import Control.Monad.IO.Class (liftIO)
127import Control.Monad.State.Strict (StateT(..), get, put)
13−import Data.Char (ord)
148import System.Environment (getArgs)
15−import System.IO (IOMode(..), hSeek, SeekMode(..))
9+import System.IO (IOMode(..))
1610import Data.Function ((&))
1711
1812newHandle :: StateT (Maybe (FH.Handle, Int)) IO FH.Handle