mirror of
https://github.com/hasura/graphql-engine.git
synced 2025-01-08 08:44:24 +03:00
5b2465f22a
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/8994 GitOrigin-RevId: a7aec36c87fe6a53d704c7a7fb6d625853914dda
23 lines
514 B
Haskell
23 lines
514 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
-- `makeWrapped` creates orphans
|
|
|
|
module Hasura.RQL.IR.BoolExp.Lenses
|
|
( geWhere,
|
|
geTable,
|
|
_BoolExists,
|
|
)
|
|
where
|
|
|
|
import Control.Lens.TH (makeLenses, makePrisms, makeWrapped)
|
|
import Hasura.RQL.IR.BoolExp (BoolExp (..), GBoolExp (..), GExists (..))
|
|
|
|
makeLenses ''GExists
|
|
|
|
-- this is why we need Orphan instances enabled, as this creates orphan
|
|
-- `Control.Lens.Wrapped.Wrapped` instances
|
|
makeWrapped ''BoolExp
|
|
|
|
makePrisms ''GBoolExp
|