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