module Opaleye.Label (
  label
  ) where

import qualified Opaleye.Internal.PrimQuery as PQ
import qualified Opaleye.Internal.QueryArr as Q
import qualified Opaleye.Select            as S

-- | Add a commented label to the generated SQL.
label :: String -> S.SelectArr a b -> S.SelectArr a b
label :: String -> SelectArr a b -> SelectArr a b
label = (PrimQuery -> PrimQuery) -> SelectArr a b -> SelectArr a b
forall a b.
(PrimQuery -> PrimQuery) -> SelectArr a b -> SelectArr a b
Q.mapPrimQuery ((PrimQuery -> PrimQuery) -> SelectArr a b -> SelectArr a b)
-> (String -> PrimQuery -> PrimQuery)
-> String
-> SelectArr a b
-> SelectArr a b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> PrimQuery -> PrimQuery
forall a. String -> PrimQuery' a -> PrimQuery' a
PQ.Label