From 9be755385072fcdeb685218237e23b481aed0e4b Mon Sep 17 00:00:00 2001
From: ronny
Date: Tue, 23 Dec 2003 10:00:18 +0000
Subject: bug fix: don't accept lhs patterns between function name and double
 colon for example reject: f blah [blah] blah :: Int -> Int

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1442 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/parse.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 22c45b5..f89af28 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -506,7 +506,7 @@ where
 			= (False, abort "name", False, tokenBack pState)
 
 	want_rhs_of_def :: !ParseContext !(Optional (Ident, Bool), [ParsedExpr]) !Token !Position !ParseState -> (ParsedDefinition, !ParseState)
-	want_rhs_of_def parseContext (opt_name, args) DoubleColonToken pos pState
+	want_rhs_of_def parseContext (opt_name, []) DoubleColonToken pos pState
 		# (name, is_infix, pState) = check_name_and_fixity opt_name cHasNoPriority pState
 		  (tspec, pState) = want pState		//	SymbolType
 		| isDclContext parseContext
-- 
cgit v1.2.3