Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

removed trace

Browse source
This commit is contained in:
sebastianselander 2023-03-29 17:32:21 +02:00
parent 4efe7cf9a2
commit 36b6a8f781
1 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/TypeChecker/TypeCheckerHm.hs
View file

@ -54,8 +54,6 @@ checkPrg (Program bs) = do
preRun bs preRun bs
bs <- checkDef bs bs <- checkDef bs
sub <- solveUndecidable sub <- solveUndecidable
dec <- gets toDecide
trace (printTree bs) pure ()
bs <- mapM (mono sub) bs bs <- mapM (mono sub) bs
return $ T.Program bs return $ T.Program bs
@ -778,9 +776,13 @@ exprErr :: (Monad m, MonadError Error m) => m a -> Exp -> m a
exprErr ma exp = exprErr ma exp =
catchError catchError
ma ma
( \err -> if err.catchable ( \err ->
then throwError if err.catchable
( err { msg = err.msg then
throwError
( err
{ msg =
err.msg
<> " in expression: \n" <> " in expression: \n"
<> printTree exp <> printTree exp
, catchable = False , catchable = False
@ -793,9 +795,13 @@ bindErr :: (Monad m, MonadError Error m) => m a -> Bind -> m a
bindErr ma bind = bindErr ma bind =
catchError catchError
ma ma
( \err -> if err.catchable ( \err ->
then throwError if err.catchable
( err { msg = err.msg then
throwError
( err
{ msg =
err.msg
<> " in function: \n" <> " in function: \n"
<> printTree bind <> printTree bind
, catchable = False , catchable = False