-- this should only parse and not give "prelude empty list" - github issue #4
module Main where

main :: IO ()
main = putStrLn "Hello, world!"