testsuite/tests/ghc-regress/perf/should_run/lazy-bs-alloc.hs


1
2
3
4
5
6
7
8
9

module Main (main) where

import System.Environment (getArgs)
import qualified Data.ByteString.Lazy as L

main :: IO ()
main = do
    (file : _) <- getArgs
    L.readFile file >>= L.putStr