OrderStatus.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
-- @generated by keiro-dsl; do not edit. Regenerated from the .keiro spec.
module Generated.NominalScalars.Nominal.Shape.OrderStatus (OrderStatusRepresentation (..), orderStatusRepresentationText) where

import Data.Text (Text)
import GHC.Generics (Generic)

data OrderStatusRepresentation = Draft | Submitted
  deriving stock (Eq, Generic, Ord, Show, Enum, Bounded)

orderStatusRepresentationText :: OrderStatusRepresentation -> Text
orderStatusRepresentationText = \case
  Draft -> "draft"
  Submitted -> "submitted"