Skip to content

Commit 8292e21

Browse files
reximrexim
committed
Only for mr strimmer :)
1 parent d9597d7 commit 8292e21

File tree

3 files changed

+26
-26
lines changed

3 files changed

+26
-26
lines changed

‎src/Bot.hs‎

Lines changed: 23 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -78,7 +78,7 @@ builtinCommands =
7878
, mkBuiltinCommand
7979
( "Delete quote from quote database"
8080
, $githubLinkLocationStr
81-
, onlyForRoles "Only for mods" authorityRoles $
81+
, onlyForRoles "Only for mr strimmer :)" authorityRoles $
8282
cmapR (readMaybe . T.unpack) $
8383
replyOnNothing "Expected integer as an argument" deleteQuoteCommand))
8484
, ( "quote"
@@ -91,14 +91,14 @@ builtinCommands =
9191
( "Update FFZ cache"
9292
, $githubLinkLocationStr
9393
, authorizeSender senderAuthority $
94-
replyOnNothing "Only for mods" $
94+
replyOnNothing "Only for mr strimmer :)" $
9595
cmapR (const ()) updateFfzEmotesCommand))
9696
, ( "updatebttv"
9797
, mkBuiltinCommand
9898
( "Update BTTV cache"
9999
, $githubLinkLocationStr
100100
, authorizeSender senderAuthority $
101-
replyOnNothing "Only for mods" $
101+
replyOnNothing "Only for mr strimmer :)" $
102102
cmapR (const ()) updateBttvEmotesCommand))
103103
, ( "help"
104104
, mkBuiltinCommand
@@ -108,7 +108,7 @@ builtinCommands =
108108
( "Starts a poll. !poll <duration:secs> option1; option2; ...; option3"
109109
, $githubLinkLocationStr
110110
, authorizeSender senderAuthority $
111-
replyOnNothing "Only for mods" $
111+
replyOnNothing "Only for mr strimmer :)" $
112112
-- TODO(#362): !poll command does not parse negative numbers
113113
regexArgs "([0-9]+) (.*)" $
114114
replyLeft $
@@ -141,7 +141,7 @@ builtinCommands =
141141
( "Add periodic command"
142142
, $githubLinkLocationStr
143143
, authorizeSender senderAuthority $
144-
replyOnNothing "Only for mods" $
144+
replyOnNothing "Only for mr strimmer :)" $
145145
regexArgs "([0-9]+) (.*)" $
146146
replyLeft $
147147
pairArgs $
@@ -161,7 +161,7 @@ builtinCommands =
161161
( "Delete periodic command"
162162
, $githubLinkLocationStr
163163
, authorizeSender senderAuthority $
164-
replyOnNothing "Only for mods" removePeriodicCommand))
164+
replyOnNothing "Only for mr strimmer :)" removePeriodicCommand))
165165
, ( "addtimer"
166166
, mkBuiltinCommand
167167
( "Add Periodic Timer"
@@ -190,13 +190,13 @@ builtinCommands =
190190
( "Enable periodic timer"
191191
, $githubLinkLocationStr
192192
, authorizeSender senderAuthority $
193-
replyOnNothing "Only for mods" enablePeriodicTimerCommand))
193+
replyOnNothing "Only for mr strimmer :)" enablePeriodicTimerCommand))
194194
, ( "periodicoff"
195195
, mkBuiltinCommand
196196
( "Disable periodic timer"
197197
, $githubLinkLocationStr
198198
, authorizeSender senderAuthority $
199-
replyOnNothing "Only for mods" disablePeriodicTimerCommand))
199+
replyOnNothing "Only for mr strimmer :)" disablePeriodicTimerCommand))
200200
, ( "periodicstat"
201201
, mkBuiltinCommand
202202
( "Status of Periodic Timer"
@@ -207,21 +207,21 @@ builtinCommands =
207207
( "Add custom command"
208208
, $githubLinkLocationStr
209209
, authorizeSender senderAuthority $
210-
replyOnNothing "Only for mods" $
210+
replyOnNothing "Only for mr strimmer :)" $
211211
regexArgs "([a-zA-Z0-9]+) ?(.*)" $
212212
replyLeft $ pairArgs $ replyLeft $ addCustomCommand builtinCommands))
213213
, ( "delcmd"
214214
, mkBuiltinCommand
215215
( "Delete custom command"
216216
, $githubLinkLocationStr
217217
, authorizeSender senderAuthority $
218-
replyOnNothing "Only for mods" $ deleteCustomCommand builtinCommands))
218+
replyOnNothing "Only for mr strimmer :)" $ deleteCustomCommand builtinCommands))
219219
, ( "updcmd"
220220
, mkBuiltinCommand
221221
( "Update custom command"
222222
, $githubLinkLocationStr
223223
, authorizeSender senderAuthority $
224-
replyOnNothing "Only for mods" $
224+
replyOnNothing "Only for mr strimmer :)" $
225225
regexArgs "([a-zA-Z0-9]+) ?(.*)" $
226226
replyLeft $
227227
pairArgs $ replyLeft $ updateCustomCommand builtinCommands))
@@ -254,42 +254,42 @@ builtinCommands =
254254
( "Add command alias"
255255
, $githubLinkLocationStr
256256
, authorizeSender senderAuthority $
257-
replyOnNothing "Only for mods" $
257+
replyOnNothing "Only for mr strimmer :)" $
258258
regexArgs "([a-zA-Z0-9]+) ([a-zA-Z0-9]+)" $
259259
replyLeft $ pairArgs $ replyLeft addAliasCommand))
260260
, ( "delalias"
261261
, mkBuiltinCommand
262262
( "Remove command alias"
263263
, $githubLinkLocationStr
264264
, authorizeSender senderAuthority $
265-
replyOnNothing "Only for mods" removeAliasCommand))
265+
replyOnNothing "Only for mr strimmer :)" removeAliasCommand))
266266
, ( "addvar"
267267
, mkBuiltinCommand
268268
( "Add variable"
269269
, $githubLinkLocationStr
270270
, authorizeSender senderAuthority $
271-
replyOnNothing "Only for mods" addVariable))
271+
replyOnNothing "Only for mr strimmer :)" addVariable))
272272
, ( "updvar"
273273
, mkBuiltinCommand
274274
( "Update variable"
275275
, $githubLinkLocationStr
276276
, authorizeSender senderAuthority $
277-
replyOnNothing "Only for mods" $
277+
replyOnNothing "Only for mr strimmer :)" $
278278
regexArgs "([a-zA-Z0-9]+) ?(.*)" $
279279
replyLeft $ pairArgs $ replyLeft updateVariable))
280280
, ( "delvar"
281281
, mkBuiltinCommand
282282
( "Delete variable"
283283
, $githubLinkLocationStr
284284
, authorizeSender senderAuthority $
285-
replyOnNothing "Only for mods" deleteVariable))
285+
replyOnNothing "Only for mr strimmer :)" deleteVariable))
286286
, ( "nuke"
287287
, mkBuiltinCommand
288288
( [qms|Looks at N previous messages and bans all of
289289
the users whose messages match provided regex|]
290290
, $githubLinkLocationStr
291291
, authorizeSender senderAuthority $
292-
replyOnNothing "Only for mods" $
292+
replyOnNothing "Only for mr strimmer :)" $
293293
regexArgs "([0-9]+) (.*)" $
294294
replyLeft $
295295
pairArgs $
@@ -324,7 +324,7 @@ builtinCommands =
324324
( "Makes the user trusted"
325325
, $githubLinkLocationStr
326326
, authorizeSender senderAuthority $
327-
replyOnNothing "Only for mods" $
327+
replyOnNothing "Only for mr strimmer :)" $
328328
regexArgs "(.+)" $
329329
replyLeft $
330330
cmapR headMay $ replyOnNothing "Not enough arguments" trustCommand))
@@ -333,7 +333,7 @@ builtinCommands =
333333
( "Untrusts the user"
334334
, $githubLinkLocationStr
335335
, authorizeSender senderAuthority $
336-
replyOnNothing "Only for mods" $
336+
replyOnNothing "Only for mr strimmer :)" $
337337
regexArgs "(.+)" $
338338
replyLeft $
339339
cmapR headMay $ replyOnNothing "Not enough arguments" untrustCommand))
@@ -379,7 +379,7 @@ builtinCommands =
379379
( "Start the raffle"
380380
, $githubLinkLocationStr
381381
, authorizeSender senderAuthority $
382-
replyOnNothing "Only for mods" $ cmapR (const 5) raffleCommand))
382+
replyOnNothing "Only for mr strimmer :)" $ cmapR (const 5) raffleCommand))
383383
, ( "join"
384384
, mkBuiltinCommand
385385
("Join the raffle", $githubLinkLocationStr, joinCommand))
@@ -407,7 +407,7 @@ builtinCommands =
407407
, mkBuiltinCommand
408408
( "Get the next video for Smart Stream"
409409
, $githubLinkLocationStr
410-
, onlyForRoles "Only for mods" authorityRoles $
410+
, onlyForRoles "Only for mr strimmer :)" authorityRoles $
411411
transR void nextVideoCommand))
412412
, ( "video"
413413
, mkBuiltinCommand
@@ -448,14 +448,14 @@ builtinCommands =
448448
, mkBuiltinCommand
449449
( "Reloads Markov model file"
450450
, $githubLinkLocationStr
451-
, onlyForRoles "Only for mods" authorityRoles $
451+
, onlyForRoles "Only for mr strimmer :)" authorityRoles $
452452
liftR (const reloadMarkov) $
453453
replyOnNothing "Nothing to reload" $ Reaction replyMessage))
454454
, ( "config"
455455
, mkBuiltinCommand
456456
( "Bot configuration command"
457457
, $githubLinkLocationStr
458-
, onlyForRoles "Only for mods" authorityRoles $
458+
, onlyForRoles "Only for mr strimmer :)" authorityRoles $
459459
subcommand
460460
[ ( "help"
461461
, subcommand

‎src/Bot/Friday.hs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -315,9 +315,9 @@ videoQueueCommand =
315315
subcommand
316316
[ ("", videoQueueLinkCommand)
317317
, ( "gist"
318-
, onlyForRoles "Only for mods" authorityRoles setVideoQueueGistCommand)
318+
, onlyForRoles "Only for mr strimmer :)" authorityRoles setVideoQueueGistCommand)
319319
, ( "refresh"
320-
, onlyForRoles "Only for mods" authorityRoles $
320+
, onlyForRoles "Only for mr strimmer :)" authorityRoles $
321321
liftR (const currentFridayState) $
322322
cmapR (updateFridayStateGistFresh False <$>) $
323323
liftR updateEntityById $

‎src/Bot/Replies.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -82,7 +82,7 @@ onlyForRoles reply roles reaction =
8282
(cmapR (const reply) $ Reaction replyMessage)
8383

8484
onlyForMods :: Reaction Message a -> Reaction Message a
85-
onlyForMods = onlyForRoles "Only for mods" authorityRoles
85+
onlyForMods = onlyForRoles "Only for mr strimmer :)" authorityRoles
8686

8787
nonEmptyRoles :: Reaction Message a -> Reaction Message a
8888
nonEmptyRoles reaction =

0 commit comments

Comments
 (0)