common/src/Common/Message.hs


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

module Common.Message
  ( get
  ) 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