From 25e09925125300b35410b622bc03548a1fb07ff0 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 16 Sep 2002 14:09:35 +0000
Subject: [PATCH] [project @ 2002-09-16 14:09:35 by simonmar] Type signatures
 may only be given for unqualified variables

---
 ghc/compiler/parser/ParseUtil.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index 4e6c911..c77a990 100644
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -286,7 +286,7 @@ checkValSig
 	-> RdrNameHsType
 	-> SrcLoc
 	-> P RdrBinding
-checkValSig (HsVar v) ty loc = returnP (RdrSig (Sig v ty loc))
+checkValSig (HsVar v) ty loc | isUnqual v = returnP (RdrSig (Sig v ty loc))
 checkValSig other     ty loc = parseError "Type signature given for an expression"
 
 
-- 
1.7.10.4