postgresql-syntax-0.5.0.2: library-internal/PostgresqlSyntax/Ast/VerbalExprBinOp.hs

module PostgresqlSyntax.Ast.VerbalExprBinOp where

import PostgresqlSyntax.Algebra
import qualified PostgresqlSyntax.Helpers.Parsers as Parsers
import PostgresqlSyntax.Prelude
import qualified Test.QuickCheck as Qc

-- |
-- ==== References
-- @
--   | LIKE
--   | NOT_LA LIKE
--   | ILIKE
--   | NOT_LA ILIKE
--   | SIMILAR TO
--   | NOT_LA SIMILAR TO
-- @
data VerbalExprBinOp
  = LikeVerbalExprBinOp
  | IlikeVerbalExprBinOp
  | SimilarToVerbalExprBinOp
  deriving (Show, Generic, Eq, Ord, Data, Enum, Bounded)

instance IsAst VerbalExprBinOp where
  toTextBuilder _settings = \case
    LikeVerbalExprBinOp -> "LIKE"
    IlikeVerbalExprBinOp -> "ILIKE"
    SimilarToVerbalExprBinOp -> "SIMILAR TO"
  parser _settings =
    asum
      [ LikeVerbalExprBinOp <$ Parsers.keyword "like",
        IlikeVerbalExprBinOp <$ Parsers.keyword "ilike",
        SimilarToVerbalExprBinOp <$ Parsers.keyphrase "similar to"
      ]

instance Qc.Arbitrary VerbalExprBinOp where
  shrink = Qc.genericShrink
  arbitrary = Qc.elements [minBound .. maxBound]