Restore haskell files we used for testing

Author: drsooch

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

@@ -38,7 +38,6 @@ 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)
@@ -48,17 +47,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
@@ -148,9 +147,7 @@ parseModule
 parseModule IdeOptions{..} env filename ms =
     fmap (either (, Nothing) id) $
     runExceptT $ do
-
         (diag, modu) <- parseFileContents env optPreprocessor filename ms
-
         return (diag, Just modu)
 
 
@@ -162,7 +159,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

@@ -9,19 +9,13 @@ module Ide.Plugin.Literals (
     , Literal(..)
     , getSrcText
     , getSrcSpan
-    , testCodeForPreCommitGithubAction
 ) where
 
-import           Data.Text                     (Text)
-
 import           Data.Maybe                    (maybeToList)
-
+import           Data.Text                     (Text)
 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
@@ -77,9 +71,6 @@ type LocPat a = GenLocated SrcSpan (Pat a)
 type LocPat a = LPat a
 #endif
 
-testCodeForPreCommitGithubAction :: String
-testCodeForPreCommitGithubAction = undefined
-
 -- | Destructure Patterns to unwrap any Literals
 getPattern :: LocPat GhcPs -> Maybe Literal
 getPattern (L (locA -> (RealSrcSpan patSpan _)) pat) = case pat of