diff options
| author | Camil Staps | 2017-03-18 16:06:01 +0100 |
|---|---|---|
| committer | Camil Staps | 2017-03-18 16:06:01 +0100 |
| commit | 4dbdb3bf8ee0fbaaf316ca05fe0f084202d21d0c (patch) | |
| tree | 17a1d8aae65e1ea2a97a1fb78d2dc26633d97f7c /frontend/scanner.icl | |
| parent | Tuple constructors (resolves #2) (diff) | |
More logical file name passing
Diffstat (limited to 'frontend/scanner.icl')
| -rw-r--r-- | frontend/scanner.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/scanner.icl b/frontend/scanner.icl index fbd52c9..2739ea8 100644 --- a/frontend/scanner.icl +++ b/frontend/scanner.icl @@ -1631,12 +1631,12 @@ where toString RightAssoc = "infixr " toString NoAssoc = "infix " -openScanner :: !*File !String !String -> ScanState -openScanner file file_name file_name_extension +openScanner :: !*File !String -> ScanState +openScanner file file_name = ScanState { ss_input = Input { inp_stream = InFile file - , inp_filename = file_name +++ file_name_extension - , inp_pos = {fp_line = 1, fp_col = 0} + , inp_filename = file_name + , inp_pos = {fp_line = 1, fp_col = 0} , inp_tabsize = 4 } , ss_offsides = [(1,False)] // to generate offsides between global definitions |