/usr/web/sources/contrib/fernan/nhc98/docs/bugs/nhc13test20.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/docs/bugs/nhc13test20.hs


{-
nhc13 fails with:

/grp/haskell/york-nhc/lib/IRIX/nhc13comp: Error: Can't find int for (Prelude._undef, Identifier)
-}

data Test = Test {dummy :: Bool}

main :: IO ()
main = print (case Test {} of Test {} -> True)

(Return to Plan 9 Home Page)