From 42bd624c9a6166298f40c0399018eba0ac115559 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 4 Apr 2011 15:31:21 +0000
Subject: use type ImportQualified instead of Bool for fields import_qualified
 and ei_qualified

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1899 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/parse.icl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'frontend/parse.icl')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 14ec95e..4f4011a 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -1083,7 +1083,7 @@ wantImports pState
 	  (file_name, line_nr, pState)	= getFileAndLineNr pState
 	  pState = wantEndOfDefinition "imports" pState
 	  position = LinePos file_name line_nr
-	= ([ { import_module = name, import_symbols = [], import_file_position = position, import_qualified = False }
+	= ([ { import_module = name, import_symbols = [], import_file_position = position, import_qualified = NotQualified }
 			\\ name<-names], pState)
 
 wantFromImports :: !ParseState -> (!ParsedImport, !ParseState)
@@ -1097,11 +1097,11 @@ wantFromImports pState
 		# (import_symbols, pState) = wantImportDeclarations pState
 		  pState = wantEndOfDefinition "from imports" pState
 		= ( { import_module = mod_ident, import_symbols = import_symbols,
-			  import_file_position = LinePos file_name line_nr, import_qualified = True }, pState)
+			  import_file_position = LinePos file_name line_nr, import_qualified = Qualified }, pState)
 	# (import_symbols, pState) = wantImportDeclarationsT token pState
 	  pState = wantEndOfDefinition "from imports" pState
 	= ( { import_module = mod_ident, import_symbols = import_symbols,
-		  import_file_position = LinePos file_name line_nr, import_qualified = False }, pState)
+		  import_file_position = LinePos file_name line_nr, import_qualified = NotQualified }, pState)
 where
 	wantImportDeclarations pState
 		# (token, pState) = nextToken GeneralContext pState
-- 
cgit v1.2.3