/usr/web/sources/contrib/fernan/nhc98/tests/conformance98/semicolon/Main.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/semicolon/Main.hs



foo :: Bool -> ()
foo x = case x of {
        True  -> ();
        False -> ();
        }

main = print (foo True)