fluent-effectful-1.0.0: test/Util.hs

{-# LANGUAGE QuasiQuotes #-}

module Util where

import Language.Fluent.ICU
import Prelude

enGB, deCH, de, en, enGBOxendict :: LocaleName
enGB = "en-GB"
deCH = "de-CH"
de = "de"
en = "en"
enGBOxendict = "en-GB-oxendict"

english, swiss, shouting :: Bundle LocaleName
english =
    bundle (pure enGB) . pure $
        [fluent|
          greeting = Hello!
          welcome = Welcome, { $name }
          biscuit = Biscuit
          shouted = a { greeting } b
        |]
swiss =
    bundle (pure deCH) . pure $
        [fluent|
          greeting = Grüezi!
          welcome = Willkommen, { $name }
        |]
shouting =
    bundle (pure enGB) . pure $
        [fluent|
          greeting = HELLO!
        |]