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