git.iko.soy/rel8
on master help sign in
Remove stray traceShowId
1dd532cShane O'Brien
src/Rel8/Query/Evaluate.hs+1−2
compare with master
unifiedsplit
@@ -14,7 +14,6 @@ where
14-- base
14-- base
15import Data.Kind ( Type )
15import Data.Kind ( Type )
16import Data.Monoid ( Endo ( Endo ), appEndo )
16import Data.Monoid ( Endo ( Endo ), appEndo )
17−import Debug.Trace
18import Prelude
17import Prelude
19
18
20-- opaleye
19-- opaleye
@@ -80,4 +79,4 @@ evaluate :: Evaluate a -> Query a
80evaluate (Evaluate m) = Query $ Opaleye.QueryArr $ \(_, query, tag) ->
79evaluate (Evaluate m) = Query $ Opaleye.QueryArr $ \(_, query, tag) ->
81 case runState m (Evaluations tag mempty) of
80 case runState m (Evaluations tag mempty) of
82 (a, Evaluations {tag = tag', bindings}) ->
81 (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')