-- | simple translated text
module MultiLangText (MultiLangText, monolingual) where

import           Data.Map              (Map, singleton)
import           Data.Text             (Text)
import           Text.Shakespeare.I18N (Lang)

type MultiLangText = Map Lang Text

monolingual :: Lang -> Text -> MultiLangText
monolingual = singleton