common/src/Common/Msg.hs


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

module Common.Msg
  ( get
  , Key(..)
  ) where

import           Data.Text                  (Text)

import           Common.Message.Key         (Key (..))
import           Common.Message.Lang        (Lang (..))
import qualified Common.Message.Translation as Translation

get :: Key -> Text
get = Translation.get French