blob: 4cd3fc38c3726e4d2003c412c17a237f09eccf8e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
-- | 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
|
