diff options
| author | johnvg | 2011-04-04 15:31:21 +0000 |
|---|---|---|
| committer | johnvg | 2011-04-04 15:31:21 +0000 |
| commit | 42bd624c9a6166298f40c0399018eba0ac115559 (patch) | |
| tree | bfd4ce2b98bf57bb8be5f4eb33ba38d611405bcd /frontend/parse.icl | |
| parent | Remove type argument from_symbol of type Import, it was always type ImportDec... (diff) | |
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
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 6 |
1 files changed, 3 insertions, 3 deletions
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 |