ghc/tests/reader/should_compile/read004.hs

   1 module ShouldCompile where
   2
   3 {-
   4 From: Kevin Hammond <kh>
   5 To: partain
   6 Subject: Re:  parsing problem w/ queens
   7 Date: Wed, 9 Oct 91 17:31:46 BST
   8
   9 OK, I've fixed that little problem by disallowing,
  10 -}
  11
  12 f x = x + if True then 1 else 2
  13 g x = x + 1::Int
  14
  15 -- (the conditional/sig need to be parenthesised).  If this is
  16 -- problematic, let me know!