From 48ed34507521570c0baca880068f344a9d47daa9 Mon Sep 17 00:00:00 2001 From: Guillaume Maudoux Date: Thu, 5 Dec 2019 15:04:01 +0100 Subject: [PATCH] Disable debug logging on thunk force --- src/Nix/Thunk/Basic.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Nix/Thunk/Basic.hs b/src/Nix/Thunk/Basic.hs index a66398e..6bde604 100644 --- a/src/Nix/Thunk/Basic.hs +++ b/src/Nix/Thunk/Basic.hs @@ -15,7 +15,6 @@ import Control.Exception hiding ( catch ) import Control.Monad.Catch import Nix.Thunk -import Nix.Utils import Nix.Var data Deferred m v = Deferred (m v) | Computed v @@ -75,7 +74,6 @@ forceThunk (Thunk n active ref) k = do if nowActive then throwM $ ThunkLoop $ show n else do - traceM $ "Forcing " ++ show n v <- catch action $ \(e :: SomeException) -> do _ <- atomicModifyVar active (False, ) throwM e