From 4d9dd401286bbaedcaa90d3cd2a3280e63cc3fcd Mon Sep 17 00:00:00 2001
From: diederik
Date: Tue, 12 Nov 2002 08:14:12 +0000
Subject: Made modulename <> filename a proper error

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 8a159fe..aa07de3 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -366,7 +366,7 @@ where
 		| name == id_name
 	  		= pState
 			# ({fp_line}, pState=:{ps_error={pea_file}}) = getPosition pState
- 			  pea_file = pea_file <<< '[' <<< file_name <<< ',' <<< fp_line <<< "]: module name \"" <<< name 
+ 			  pea_file = pea_file <<< "Error [" <<< file_name <<< ',' <<< fp_line <<< "]: module name \"" <<< name 
 	  						<<< "\" does not match file name: \"" <<< file_name <<<"\"\n"
 			= { pState & ps_error = { pea_file = pea_file, pea_ok = False }}
 
-- 
cgit v1.2.3