Use correct tag in rebind (#118)
commitb0e47ec0e723be1df4e4fab4986dc2569775d313
authorShane <shane.obrien@circuithub.com>
dateFri 16 Jul 2021, 16:15 (5 years ago)
parent29cdfdb
src/Rel8/Query/Evaluate.hs+1−1
@@ -59,7 +59,7 @@ rebind a = Query $ \_ -> Opaleye.QueryArr $ \(_, tag) ->
5959 let
6060 tag' = Opaleye.next tag
6161 (a', bindings) = Opaleye.run $
62− Opaleye.runUnpackspec unpackspec (Opaleye.extractAttr "eval" tag') a
62+ Opaleye.runUnpackspec unpackspec (Opaleye.extractAttr "eval" tag) a
6363 in
6464 ((mempty, a'), \_ -> Opaleye.Rebind True bindings, tag')
6565