module Foundation.Types
  ( UpsertCampusUserMode(..)
  , _UpsertCampusUser, _UpsertCampusUserDummy, _UpsertCampusUserOther
  , _upsertCampusUserIdent
  ) where

import Import.NoFoundation


data UpsertCampusUserMode
  = UpsertCampusUser
  | UpsertCampusUserDummy { upsertCampusUserIdent :: UserIdent }
  | UpsertCampusUserOther { uspertCampusUserIdent :: UserIdent }
  deriving (Eq, Ord, Read, Show, Generic, Typeable)

makeLenses_ ''UpsertCampusUserMode
makePrisms ''UpsertCampusUserMode
