By | fr33domlover |
At | 2016-02-01 |
Title | Oxford comma in welcome message's nick list |
Description |
Edit file src/FunBot/ExtHandlers.hs 33188 → 33188
157 157 sendToChannel chan firstCommit
158 158 sendToChannel chan ellip
159 159 sendToChannel chan lastCommit
160 160 161 161 makeVerbal :: [Text] -> Text
- 162 makeVerbal [] = "... ummm... I don’t know, actually. How embarrassing"
- 163 makeVerbal [n] = n
- 164 makeVerbal [n, m] = n <> " and " <> m
- 165 makeVerbal (n:ns) = n <> ", " <> makeVerbal ns
+ 162 makeVerbal [] = "... ummm... I don’t know, actually. How embarrassing"
+ 163 makeVerbal [n] = n
+ 164 makeVerbal [n, m] = n <> " and " <> m
+ 165 makeVerbal [n, m, k] = n <> ", " <> m <> ", and " <> k
+ 166 makeVerbal (n:ns) = n <> ", " <> makeVerbal ns
166 167 167 168 repoKey :: Repository -> (RepoSpace, RepoName)
168 169 repoKey repo =
169 170 ( RepoSpace $ CI.mk $ repoSpace repo
170 171 , RepoName $ CI.mk $ repoName repo
… … … …