@@ -1,18 +1,12 @@
1import qualified Streamly.Internal.Prelude as S
1import 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
5import qualified Streamly.Internal.FileSystem.Handle as IFH
2import qualified Streamly.Internal.FileSystem.Handle as IFH
6import qualified Streamly.FileSystem.Handle as FH
3import qualified Streamly.FileSystem.Handle as FH
7import qualified System.IO as FH
4import qualified System.IO as FH
8−-- import qualified Streamly.FileSystem.FD as FH
9−-- import qualified Streamly.Data.Unicode.Stream as US
11import Control.Monad.IO.Class (liftIO)
6import Control.Monad.IO.Class (liftIO)
12import Control.Monad.State.Strict (StateT(..), get, put)
7import Control.Monad.State.Strict (StateT(..), get, put)
13−import Data.Char (ord)
14import System.Environment (getArgs)
8import System.Environment (getArgs)
15−import System.IO (IOMode(..), hSeek, SeekMode(..))
9+import System.IO (IOMode(..))
16import Data.Function ((&))
10import Data.Function ((&))
18newHandle :: StateT (Maybe (FH.Handle, Int)) IO FH.Handle
12newHandle :: StateT (Maybe (FH.Handle, Int)) IO FH.Handle