Introduce bad formatting in a file

Author: drsooch

ghcide/src/Development/IDE/Core/Compile.hs

@@ -38,6 +38,7 @@ module Development.IDE.Core.Compile
 
 import           Control.Concurrent.Extra
 import           Control.Concurrent.STM.Stats      hiding (orElse)
+
 import           Control.DeepSeq                   (NFData (..), force, liftRnf,
                                                     rnf, rwhnf)
 import           Control.Exception                 (evaluate)
@@ -47,17 +48,17 @@ import           Control.Monad.Except
 import           Control.Monad.Extra
 import           Control.Monad.Trans.Except
 import qualified Control.Monad.Trans.State.Strict  as S
-import           Data.Aeson                        (toJSON)
-import           Data.Bifunctor                    (first, second)
+import           Data.Aeson       (toJSON)
+import           Data.Bifunctor          (first, second)
 import           Data.Binary
-import qualified Data.ByteString                   as BS
+import qualified Data.ByteString               as BS
 import           Data.Coerce
-import qualified Data.DList                        as DL
+import qualified Data.DList                as DL
 import           Data.Functor
 import           Data.Generics.Aliases
 import           Data.Generics.Schemes
 import qualified Data.HashMap.Strict               as HashMap
-import           Data.IntMap                       (IntMap)
+import           Data.IntMap                  (IntMap)
 import qualified Data.IntMap.Strict                as IntMap
 import           Data.IORef
 import           Data.List.Extra
@@ -147,7 +148,9 @@ parseModule
 parseModule IdeOptions{..} env filename ms =
     fmap (either (, Nothing) id) $
     runExceptT $ do
+
         (diag, modu) <- parseFileContents env optPreprocessor filename ms
+
         return (diag, Just modu)
 
 
@@ -159,7 +162,7 @@ computePackageDeps
 computePackageDeps env pkg = do
     case lookupUnit env pkg of
         Nothing -> return $ Left [ideErrorText (toNormalizedFilePath' noFilePath) $
-            T.pack $ "unknown package: " ++ show pkg]
+                        T.pack $ "unknown package: " ++ show pkg]
         Just pkgInfo -> return $ Right $ unitDepends pkgInfo
 
 data TypecheckHelpers

plugins/hls-alternate-number-format-plugin/src/Ide/Plugin/Literals.hs

@@ -12,11 +12,16 @@ module Ide.Plugin.Literals (
     , testCodeForPreCommitGithubAction
 ) where
 
-import           Data.Maybe                    (maybeToList)
 import           Data.Text                     (Text)
+
+import           Data.Maybe                    (maybeToList)
+
 import qualified Data.Text                     as T
+
 import           Development.IDE.GHC.Compat    hiding (getSrcSpan)
+
 import           Development.IDE.Graph.Classes (NFData (rnf))
+
 import           Generics.SYB                  (Data, Typeable, everything,
                                                 extQ)
 import qualified GHC.Generics                  as GHC