Remove some tracing code

This commit is contained in:
John Wiegley 2018-03-27 23:16:00 -07:00
parent 124530c9a9
commit 1974ace399

View file

@ -18,7 +18,6 @@ import Data.Text (Text)
import qualified Data.Text as Text
import Data.These
import Data.Typeable (Typeable)
import Debug.Trace
import GHC.Generics
import Nix.Atoms
import Nix.Expr
@ -188,7 +187,7 @@ phi (NBinary op larg rarg) = \env ->
_ -> error unsupportedTypes
phi (NSelect aset attr alternative) = \env ->
let aset' = trace ("env = " ++ show env) $ aset env
let aset' = aset env
ks = evalSelector True attr env
in case extract aset' ks of
Just v -> v