module Model.Header
  ( Header(..)
  , allHeaders
  , headerLink
  , headerKey
  ) where

import Model.Translation.Key (Key)
import qualified Model.Translation.Key as K

data Header =
  Resume
  | Projects
  deriving (Enum, Bounded, Show, Eq)

allHeaders :: [Header]
allHeaders = [minBound..]

headerLink :: Header -> String
headerLink Resume = "/"
headerLink Projects = "/projects"

headerKey :: Header -> Key
headerKey Resume = K.Resume
headerKey Projects = K.Projects