blob: 7581fc59e14685dda53727e490436d69aaa928a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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
|
