[project @ 2000-05-12 15:48:20 by rrt]
[ghc-hetmet.git] / ghc / tests / deriving / should_run / drvrun007.hs
1 module Main( main ) where
2 -- This one crashed Hugs98
3
4 data X = X | X :\ X  deriving Show
5
6 main = putStrLn (show (X :\ X))