(#599) Fix hindent remarks

Author: rexim

src/Bot.hs

@@ -565,7 +565,7 @@ shuffle t = fromMaybe t $ headMay $ drop 100 $ iterate swapDeck t
 
 replaceAt :: Int -> T.Text -> T.Text -> T.Text
 replaceAt i rep input =
-  fromMaybe input $ fmap (T.append (T.append left rep) . snd) $ T.uncons right
+  maybe input (T.append (T.append left rep) . snd) (T.uncons right)
   where
     (left, right) = T.splitAt i input
 

src/MarkovMain.hs

@@ -11,13 +11,12 @@ import Markov
 import Safe
 import System.Environment
 import Text.InterpolatedString.QM
-import Data.Maybe
 
 asteriskCorrectionFilter :: [T.Text] -> [T.Text]
 asteriskCorrectionFilter = filter ((/= '*') . T.last)
 
 firstIsNot :: Char -> T.Text -> Bool
-firstIsNot x = fromMaybe False . fmap ((/= x) . fst) . T.uncons
+firstIsNot x = maybe False ((/= x) . fst) . T.uncons
 
 mentionsFilter :: [T.Text] -> [T.Text]
 mentionsFilter =

test/Bot/ExprTest.hs

@@ -1,8 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
+
 module Bot.ExprTest where
 
-import Test.HUnit
 import Bot.Expr
+import Test.HUnit
 
 -- TODO(#801): Let's fuzz Bot.Expr.exprs to make sure that it has expected behaviour
 exprsTest :: Test
@@ -50,7 +51,7 @@ exprsTest =
             , VarExpr "k"
             , TextExpr " baz ()"
             ]))
-    , ("%f(%x)", Right ("",[FunCallExpr "f" [VarExpr "x"]]))
+    , ("%f(%x)", Right ("", [FunCallExpr "f" [VarExpr "x"]]))
     , ( "\"hello %x world\""
       , Right ("", [TextExpr "\"hello ", VarExpr "x", TextExpr " world\""]))
     ]