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

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

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