ghc/tests/stranal/should_compile/str002.hs

   1 -- !!! Recursive newtypes
   2 --      Needs -O
   3 -- This one made GHC < 5.00.2 go into an
   4 -- infinite loop in the strictness analysier
   5
   6 module Foo where
   7
   8 newtype V = MkV V
   9
  10 f :: V -> V
  11 f (MkV v) = v
  12