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

module PostgresqlSyntax.Ast.AscDesc where

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

-- |
-- ==== References
-- @
-- opt_asc_desc:
--   | ASC
--   | DESC
--   | EMPTY
-- @
data AscDesc = AscAscDesc | DescAscDesc
  deriving (Show, Generic, Eq, Ord, Data, Enum, Bounded)

instance IsAst AscDesc where
  toTextBuilder _settings = \case
    AscAscDesc -> "ASC"
    DescAscDesc -> "DESC"
  parser _settings = Parsers.keyword "asc" $> AscAscDesc <|> Parsers.keyword "desc" $> DescAscDesc

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