Channel.hs

-- @generated by keiro-dsl 0.17.0.0 (language keiro-dsl 6) from bound nominal enum representation Channel; do not edit.
module Generated.StructuralNominalLeaves.Nominal.Shape.Channel (ChannelRepresentation (..), channelRepresentationText) where

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

data ChannelRepresentation = Email | Sms
  deriving stock (Eq, Generic, Ord, Show, Enum, Bounded)

channelRepresentationText :: ChannelRepresentation -> Text
channelRepresentationText = \case
  Email -> "email"
  Sms -> "sms"