diff options
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GFI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index f2afa9b78..980264042 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -184,7 +184,8 @@ execute1 opts gfenv0 s0 = (style,q,s) = pOpts TermPrintDefault Qualified ws' (new,ws') = case ws of "-new":ws' -> (True,ws') - _ -> (False,ws) + "-old":ws' -> (False,ws') + _ -> (flag optNewComp opts,ws) case runP pExp (encodeUnicode utf8 s) of Left (_,msg) -> putStrLn msg |