src/Model/Translation/Language.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Model.Translation.Language
  ( Language(..)
  , languages
  ) where

data Language =
  English
  | French
  deriving (Show, Read, Eq, Enum, Bounded)

languages :: [Language]
languages = [minBound..]