diff options
| author | Andreas Källberg <anka.213@gmail.com> | 2021-06-16 14:26:22 +0800 |
|---|---|---|
| committer | Andreas Källberg <anka.213@gmail.com> | 2021-06-16 14:26:22 +0800 |
| commit | b1ed63b089cbe0ba8530475ff6a1b2582de37d7e (patch) | |
| tree | f66b27173193d49362563adafd524ed60446fbae /src/compiler/GF/Command/Commands.hs | |
| parent | f23031ea1d0fc1171d15f115b642adf42ed454fa (diff) | |
Don't print stack traces in Command.hs
They don't provide useful info anyways and they are needlessly verbose.
Diffstat (limited to 'src/compiler/GF/Command/Commands.hs')
| -rw-r--r-- | src/compiler/GF/Command/Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs index 0e5c61404..48d8cb85a 100644 --- a/src/compiler/GF/Command/Commands.hs +++ b/src/compiler/GF/Command/Commands.hs @@ -741,7 +741,7 @@ pgfCommands = Map.fromList [ Nothing -> do putStrLn ("unknown category of function identifier "++show id) return void [e] -> case inferExpr pgf e of - Left tcErr -> error $ render (ppTcError tcErr) + Left tcErr -> errorWithoutStackTrace $ render (ppTcError tcErr) Right (e,ty) -> do putStrLn ("Expression: "++showExpr [] e) putStrLn ("Type: "++showType [] ty) putStrLn ("Probability: "++show (probTree pgf e)) |