diff options
| author | Teddy Wing | 2017-09-06 23:27:45 +0200 |
|---|---|---|
| committer | Teddy Wing | 2017-09-06 23:27:45 +0200 |
| commit | 712dca5f860529c33ad19e7babf5c471181e2573 (patch) | |
| tree | 35b0c86ca986d2526676a74e96e8a1a82e16a4c0 /src/I18n.hs | |
| parent | 8e5b862c9171af8af7c6c0d0456ae67a9e737633 (diff) | |
| download | sorbot-tmp.tar.bz2 | |
tmp; fix/rewordtmp
Diffstat (limited to 'src/I18n.hs')
| -rw-r--r-- | src/I18n.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/I18n.hs b/src/I18n.hs index f7a4571..e587648 100644 --- a/src/I18n.hs +++ b/src/I18n.hs @@ -12,16 +12,20 @@ import qualified Data.Text as T data Locale = EN | FR deriving (Show) data Message - = GitHubCommitRepoURLNotFound + = GitHubCommitDescription + | GitHubCommitRepoURLNotFound | GitRemoteSetOriginUpdatedRepoURL T.Text translate_en_US :: Message -> T.Text +translate_en_US GitHubCommitDescription = "Generate a commit URL based on the given SHA." translate_en_US GitHubCommitRepoURLNotFound = "I couldn't find a repo URL for \ \this channel. Try `git remote set origin REPO_URL`." translate_en_US (GitRemoteSetOriginUpdatedRepoURL url) = "I updated the channel's repo URL to '" `T.append` url `T.append` "'." translate_fr_FR :: Message -> T.Text +-- TODO: translate +translate_fr_FR GitHubCommitDescription = "Generate a commit URL based on the given SHA." 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) = |