Skip to content

Commit 8c6db8e

Browse files
committed
Fix hindent remarks
1 parent 8292e21 commit 8c6db8e

File tree

3 files changed

+9
-5
lines changed

3 files changed

+9
-5
lines changed

src/Bot.hs

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -215,7 +215,8 @@ builtinCommands =
215215
( "Delete custom command"
216216
, $githubLinkLocationStr
217217
, authorizeSender senderAuthority $
218-
replyOnNothing "Only for mr strimmer :)" $ deleteCustomCommand builtinCommands))
218+
replyOnNothing "Only for mr strimmer :)" $
219+
deleteCustomCommand builtinCommands))
219220
, ( "updcmd"
220221
, mkBuiltinCommand
221222
( "Update custom command"
@@ -379,7 +380,8 @@ builtinCommands =
379380
( "Start the raffle"
380381
, $githubLinkLocationStr
381382
, authorizeSender senderAuthority $
382-
replyOnNothing "Only for mr strimmer :)" $ cmapR (const 5) raffleCommand))
383+
replyOnNothing "Only for mr strimmer :)" $
384+
cmapR (const 5) raffleCommand))
383385
, ( "join"
384386
, mkBuiltinCommand
385387
("Join the raffle", $githubLinkLocationStr, joinCommand))

src/Bot/Friday.hs

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -315,7 +315,10 @@ videoQueueCommand =
315315
subcommand
316316
[ ("", videoQueueLinkCommand)
317317
, ( "gist"
318-
, onlyForRoles "Only for mr strimmer :)" authorityRoles setVideoQueueGistCommand)
318+
, onlyForRoles
319+
"Only for mr strimmer :)"
320+
authorityRoles
321+
setVideoQueueGistCommand)
319322
, ( "refresh"
320323
, onlyForRoles "Only for mr strimmer :)" authorityRoles $
321324
liftR (const currentFridayState) $

src/Transport.hs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -50,8 +50,7 @@ data Sender = Sender
5050
}
5151

5252
authorityRoles :: [Role]
53-
authorityRoles =
54-
[TwitchBroadcaster, TwitchBotOwner, DiscordGuildOwner]
53+
authorityRoles = [TwitchBroadcaster, TwitchBotOwner, DiscordGuildOwner]
5554

5655
paidRoles :: [Role]
5756
paidRoles = [tsodingTwitchedDiscordRole, TwitchSub]

0 commit comments

Comments
 (0)