path: root/testsuite/tests/ghci/scripts/T8316.hs

whnf :: a -> IO ()
whnf a = a `seq` (return ())

foo :: [Int]
foo = [1..]