diff options
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) = |