Remove very verbose debug statements

This commit is contained in:
Guillaume Maudoux 2020-05-10 01:53:12 +02:00
parent 19790fd1fc
commit b6b06224c5
1 changed files with 0 additions and 3 deletions

View File

@ -298,13 +298,11 @@ callFunc fun arg = demand fun $ \fun' -> do
"Function call stack exhausted"
case fun' of
NVClosure params f -> do
traceM $ "callFunc:NVFunction taking " ++ show params
f arg
NVBuiltin name f -> do
span <- currentPos
withFrame Info (Calling @m @t name span) (f arg)
s@(NVSet m _) | Just f <- M.lookup "__functor" m -> do
traceM "callFunc:__functor"
demand f $ (`callFunc` s) >=> (`callFunc` arg)
x -> throwError $ ErrorCall $ "Attempt to call non-function: " ++ show x
@ -316,7 +314,6 @@ execUnaryOp
-> NValue t f m
-> m (NValue t f m)
execUnaryOp scope span op arg = do
traceM "NUnary"
case arg of
NVConstant c -> case (op, c) of
(NNeg, NInt i ) -> unaryOp $ NInt (-i)