module Opaleye.Internal.Label where

import qualified Opaleye.Internal.Tag as T
import qualified Opaleye.Internal.PrimQuery as PQ

label' :: String -> (a, PQ.PrimQuery, T.Tag) -> (a, PQ.PrimQuery, T.Tag)
label' :: String -> (a, PrimQuery, Tag) -> (a, PrimQuery, Tag)
label' String
l (a
x, PrimQuery
q, Tag
t) = (a
x, String -> PrimQuery -> PrimQuery
forall a. String -> PrimQuery' a -> PrimQuery' a
PQ.Label String
l PrimQuery
q, Tag
t)