From b6b06224c5f8b2e62910a7ea65c54acf2d36ca7a Mon Sep 17 00:00:00 2001
From: Guillaume Maudoux <layus.on@gmail.com>
Date: Sun, 10 May 2020 01:53:12 +0200
Subject: [PATCH] Remove very verbose debug statements

---
 src/Nix/Exec.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/Nix/Exec.hs b/src/Nix/Exec.hs
index e7fb0c2..261d377 100644
--- a/src/Nix/Exec.hs
+++ b/src/Nix/Exec.hs
@@ -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)