OrderStatus.hs

-- @generated by keiro-dsl 0.9.0.0 (language keiro-dsl 4) from bound nominal enum representation OrderStatus; do not edit.
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"