diff options
| author | Teddy Wing | 2017-08-20 20:17:30 +0200 |
|---|---|---|
| committer | Teddy Wing | 2017-08-20 20:17:30 +0200 |
| commit | 37c39d1267e6211233a98081ddea9fef2a6f05df (patch) | |
| tree | 6964c327d4c45619ea62bec4029a232c2130644a /src/I18n.hs | |
| parent | e1462aecda91b990fe9d2e4531f6986234b84fb4 (diff) | |
| download | sorbot-37c39d1267e6211233a98081ddea9fef2a6f05df.tar.bz2 | |
GitHubCommit: Make localisation work
Get the language from the command line options and use it to determine
which localised string to return on error. Wooo!! it works! So cool.
Add French translations for our existing strings.
The code to get the language option is pretty messy for the moment. I
want to factor it out into its own separate function. But at least it's
working now.
Diffstat (limited to 'src/I18n.hs')
| -rw-r--r-- | src/I18n.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/I18n.hs b/src/I18n.hs index e50ba5b..f7a4571 100644 --- a/src/I18n.hs +++ b/src/I18n.hs @@ -21,5 +21,13 @@ translate_en_US GitHubCommitRepoURLNotFound = "I couldn't find a repo URL for \ translate_en_US (GitRemoteSetOriginUpdatedRepoURL url) = "I updated the channel's repo URL to '" `T.append` url `T.append` "'." +translate_fr_FR :: Message -> T.Text +translate_fr_FR GitHubCommitRepoURLNotFound = "Je n'ai pas trouvé une URL de \ + \repo pour ce channel. Essaye `git remote set origin REPO_URL`." +translate_fr_FR (GitRemoteSetOriginUpdatedRepoURL url) = + "J'ai mis à jour l'URL de repo pour ce channel (" + `T.append` url `T.append` ")." + translate :: Locale -> Message -> T.Text translate EN = translate_en_US +translate FR = translate_fr_FR |