git.iko.soy/rel8
on master help sign in
Use correct tag in rebind (#118)
b0e47ecShane
src/Rel8/Query/Evaluate.hs+1−1
compare with master
unifiedsplit
@@ -59,7 +59,7 @@ rebind a = Query $ \_ -> Opaleye.QueryArr $ \(_, tag) ->
59 let
59 let
60 tag' = Opaleye.next tag
60 tag' = Opaleye.next tag
61 (a', bindings) = Opaleye.run $
61 (a', bindings) = Opaleye.run $
62− Opaleye.runUnpackspec unpackspec (Opaleye.extractAttr "eval" tag') a
62+ Opaleye.runUnpackspec unpackspec (Opaleye.extractAttr "eval" tag) a
63 in
63 in
64 ((mempty, a'), \_ -> Opaleye.Rebind True bindings, tag')
64 ((mempty, a'), \_ -> Opaleye.Rebind True bindings, tag')
65
65