ghc/tests/reader/should_fail/expr001.hs

   1 module ShouldFail 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 module Test where
  12
  13 f x = x + if True then 1 else 2
  14 f x = x + 1::Int
  15
  16 -- (the conditional/sig need to be parenthesised).  If this is
  17 -- problematic, let me know!