diff options
| author | Teddy Wing | 2017-08-19 02:10:38 +0200 |
|---|---|---|
| committer | Teddy Wing | 2017-08-19 02:10:38 +0200 |
| commit | 6cd279630923cdcd053e373b56b8bc0ad85a9b08 (patch) | |
| tree | 17efcc7e58d763608a0e7ba19ed75e170d328bdd | |
| parent | 3857fca015a802d09a4e169c56895831fef11db8 (diff) | |
| download | sorbot-6cd279630923cdcd053e373b56b8bc0ad85a9b08.tar.bz2 | |
Set up i18n
en.msg:
* Remove comment lines because apparently comments aren't allowed by the
parser
* Change data type to `T.Text` to match the import from the `I18n`
module
GitHubCommit.hs:
Import the `I18n` module because we'll be testing it in context in a
bit, but for now just want to get the module code to compile.
I18n.hs:
Follow the example on http://www.yesodweb.com/book/internationalization
to make a function for proper internationalisation.
| -rw-r--r-- | messages/en.msg | 4 | ||||
| -rw-r--r-- | sorbot.cabal | 1 | ||||
| -rw-r--r-- | src/I18n.hs | 13 | ||||
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 1 |
4 files changed, 16 insertions, 3 deletions
diff --git a/messages/en.msg b/messages/en.msg index a9432e4..4b63e04 100644 --- a/messages/en.msg +++ b/messages/en.msg @@ -1,5 +1,3 @@ --- GitHubCommit GitHubCommitRepoURLNotFound: I couldn't find a repo URL for this channel. Try `git remote set origin REPO_URL`. --- GitRemoteSetOrigin -GitRemoteSetOriginUpdatedRepoURL url@Text: I updated the channel's repo URL to '#{url}'. +GitRemoteSetOriginUpdatedRepoURL url@T.Text: I updated the channel's repo URL to '#{url}'. diff --git a/sorbot.cabal b/sorbot.cabal index b7f8d84..76654ca 100644 --- a/sorbot.cabal +++ b/sorbot.cabal @@ -16,6 +16,7 @@ cabal-version: >=1.10 library hs-source-dirs: src exposed-modules: Lib + , I18n , IRC , Message , Plugin diff --git a/src/I18n.hs b/src/I18n.hs new file mode 100644 index 0000000..9b9f870 --- /dev/null +++ b/src/I18n.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE TemplateHaskell #-} + +module I18n where + +import qualified Data.Text as T + +import Text.Shakespeare.I18N (mkMessage, renderMessage) + +data Bot = Bot + +mkMessage "Bot" "messages" "en" diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index 187f016..a857604 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -10,6 +10,7 @@ import Database.SQLite.Simple import Database.SQLite.Simple.FromRow import Text.Regex.TDFA +import I18n import qualified Message as M import Plugin.Base |