@@ -14,7 +14,6 @@ where
1414-- base
1515import Data.Kind ( Type )
1616import Data.Monoid ( Endo ( Endo ), appEndo )
17−import Debug.Trace
1817import Prelude
1918
2019-- opaleye
@@ -80,4 +79,4 @@ evaluate :: Evaluate a -> Query a
8079evaluate (Evaluate m) = Query $ Opaleye.QueryArr $ \(_, query, tag) ->
8180 case runState m (Evaluations tag mempty) of
8281 (a, Evaluations {tag = tag', bindings}) ->
83− (a, Opaleye.Rebind True (traceShowId (appEndo bindings mempty)) query, tag')
82+ (a, Opaleye.Rebind True (appEndo bindings mempty) query, tag')