(#598) Fix hlint remarks

Author: rexim

src/Bot/CustomCommand.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE QuasiQuotes #-}
-{-# LANGUAGE TupleSections #-}
 
 module Bot.CustomCommand
   ( addCustomCommand
@@ -203,9 +202,9 @@ expandCustomCommandVars Message { messageSender = sender
           ]
   case code of
     Left msg -> return $ Left (show msg)
-    Right (_, code') -> do
+    Right (_, code') ->
       return $
-        Right customCommand {customCommandMessage = expandVars vars code'}
+      Right customCommand {customCommandMessage = expandVars vars code'}
 
 bumpCustomCommandTimes :: CustomCommand -> CustomCommand
 bumpCustomCommandTimes customCommand =
@@ -225,7 +224,7 @@ dispatchCustomCommand =
   ignoreNothing $
   transR getCompose $
   dupLiftR expandCustomCommandVars $
-  replyLeft $ cmapR customCommandMessage $ sayMessage
+  replyLeft $ cmapR customCommandMessage sayMessage
   where
     f :: Functor m => (a, m b) -> m (a, b)
     f = uncurry $ fmap . (,)

src/Bot/Periodic.hs

@@ -107,7 +107,7 @@ startPeriodicTimer dispatchCommand channel eid =
       pt'
 
 startPeriodicCommands ::
-     Channel -> (Reaction Message (Command T.Text)) -> Effect ()
+     Channel -> Reaction Message (Command T.Text) -> Effect ()
 startPeriodicCommands channel dispatchCommand = do
   eids <- (entityId <$>) <$> selectEntities (Proxy :: Proxy PeriodicTimer) All
   for_ eids (startPeriodicTimer dispatchCommand channel)