diff options
Diffstat (limited to 'src/compiler/GFI.hs')
| -rw-r--r-- | src/compiler/GFI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index 7bb4df878..77f534d46 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -191,7 +191,7 @@ execute1 opts gfenv0 s0 = ops <- case ts of _:_ -> do let Right t = runP pExp (encodeUnicode utf8 (unwords ts)) - err error return $ constantDepsTerm sgr t + err error (return . (t:)) $ constantDepsTerm sgr t _ -> error "give a term as argument" let prTerm = showTerm sgr TermPrintDefault Qualified let size = sizeConstant sgr |