@@ -12,13 +12,19 @@ string :: FilePath -> IO ()
1212string file = readFile file >>= print . length
1313
1414text :: FilePath -> IO ()
15−text file = T.readFile file >>= print . T.length
15+text file = do
16+ t <- {-# SCC "T.readFile" #-} T.readFile file
17+ print (T.length t)
1618
1719textBS :: FilePath -> IO ()
18−textBS file = B.readFile file >>= print . T.length . T.decodeUtf8
20+textBS file = do
21+ bs <- {-# SCC "B.readFile" #-} B.readFile file
22+ print . T.length . T.decodeUtf8 $ bs
1923
2024bytestring :: FilePath -> IO ()
21−bytestring file = B.readFile file >>= print . B.length
25+bytestring file = do
26+ bs <- {-# SCC "B.readFile" #-}B.readFile file
27+ print (B.length bs)
2228
2329main = do
2430 (name : file : _) <- getArgs