(#801) Fix hindent remarks

Author: rexim

src/Bot/Expr.hs

@@ -7,8 +7,8 @@ import Control.Applicative
 import Data.Char
 import qualified Data.Text as T
 import Data.Tuple
--- import Effect
 
+-- import Effect
 data Expr
   = TextExpr T.Text
   | FunCallExpr T.Text
@@ -119,7 +119,6 @@ expr = funcall <|> var <|> textBlock
 
 exprs :: Parser [Expr]
 exprs = many expr
-
 -- TODO(#600): interpretExprs is not implemented
 -- interpretExprs :: NameTable -> [Expr] -> Effect T.Text
 -- interpretExprs = undefined

src/FuzzyMain.hs

@@ -2,15 +2,15 @@
 
 module Main where
 
-import qualified Data.Text as T
 import Bot.Expr
-import System.Random
 import Control.Monad
+import Data.Aeson
+import Data.Aeson.Types
 import Data.Char
 import Data.List
-import Data.Aeson.Types
-import Data.Aeson
+import qualified Data.Text as T
 import System.Environment
+import System.Random
 import Text.Printf
 
 data FuzzParams = FuzzParams
@@ -107,7 +107,7 @@ randomExpr params = do
 normalizeExprs :: [Expr] -> [Expr]
 normalizeExprs [] = []
 normalizeExprs (TextExpr t1:TextExpr t2:rest) =
-    normalizeExprs (TextExpr (t1 <> t2):rest)
+  normalizeExprs (TextExpr (t1 <> t2) : rest)
 normalizeExprs (_:rest) = normalizeExprs rest
 
 randomExprs :: FuzzParams -> IO [Expr]