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"