@@ -1,17 +1,17 @@
11import qualified Streamly.Prelude as S
22import qualified Streamly.Fold as FL
33import qualified Streamly.Mem.Array as A
4−import qualified Streamly.FileSystem.File as File
4+import qualified Streamly.FileSystem.Handle as FH
55
66import Data.Char (ord)
77import System.Environment (getArgs)
88import System.IO (openFile, IOMode(..), stdout, Handle, hSeek, SeekMode(..))
99
1010cat :: Handle -> IO ()
11−cat src = File.writeArrays stdout $ File.readArraysUpto (256*1024) src
11+cat src = FH.writeArrays stdout $ FH.readArraysUpto (256*1024) src
1212
1313cp :: Handle -> Handle -> IO ()
14−cp src dst = File.writeArrays dst $ File.readArraysUpto (256*1024) src
14+cp src dst = FH.writeArrays dst $ FH.readArraysUpto (256*1024) src
1515
1616ord' :: Num a => Char -> a
1717ord' = (fromIntegral . ord)
@@ -19,17 +19,17 @@ ord' = (fromIntegral . ord)
1919wcl :: Handle -> IO ()
2020wcl src = print =<< (S.length
2121 $ FL.splitSuffixBy (== ord' '\n') FL.drain
22− $ File.read src)
22+ $ FH.read src)
2323
2424grepc :: String -> Handle -> IO ()
2525grepc pat src = print . (subtract 1) =<< (S.length
2626 $ FL.splitOn (A.fromList (map ord' pat)) FL.drain
27− $ File.read src)
27+ $ FH.read src)
2828
2929avgll :: Handle -> IO ()
3030avgll src = print =<< (FL.foldl' avg
3131 $ FL.splitSuffixBy (== ord' '\n') FL.length
32− $ File.read src)
32+ $ FH.read src)
3333 where avg = (/) <$> toDouble FL.sum <*> toDouble FL.length
3434 toDouble = fmap (fromIntegral :: Int -> Double)
3535
@@ -37,7 +37,7 @@ llhisto :: Handle -> IO ()
3737llhisto src = print =<< (FL.foldl' (FL.classify FL.length)
3838 $ S.map bucket
3939 $ FL.splitSuffixBy (== ord' '\n') FL.length
40− $ File.read src)
40+ $ FH.read src)
4141 where
4242 bucket n = let i = n `div` 10 in if i > 9 then (9,n) else (i,n)
4343