diff options
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 |