bustle-0.4.4: Bustle/Translation.hs

module Bustle.Translation
    (
      initTranslation
    , __
    )
where

import Text.I18N.GetText
import System.Locale.SetLocale
import System.IO.Unsafe

import GetText_bustle

initTranslation :: IO ()
initTranslation = do
    setLocale LC_ALL (Just "")
    domain <- getMessageCatalogDomain
    dir <- getMessageCatalogDir
    bindTextDomain domain (Just dir)
    textDomain (Just domain)
    return ()

-- FIXME: I do not like this unsafePerformIO one little bit.
__ :: String -> String
__ = unsafePerformIO . getText