Correct off by one error in ghci +c
[ghc.git] / testsuite / tests / ghci / scripts / T16569.hs
1 module T16569 where
2
3 main :: IO ()
4 main = putStrLn (case (undefined :: Int) of _ -> undefined)