import qualified Data.ByteString as BS main = do putStrLn "reading" bs <- BS.readFile "/home/markasoftware/largefile.dat" putStrLn $ "read done, length " ++ show (BS.length bs)