Change of module decl and imports on rename

Add handling of WillRename Notification which changes the module
declaration and all imports of the module to rename to the new name.

Author: VeryMilkyJoe

plugins/hls-rename-plugin/src/Ide/Plugin/Rename.hs

@@ -16,15 +16,13 @@ import           Control.Monad.Except                  (ExceptT, throwError)
 import           Control.Monad.IO.Class                (MonadIO, liftIO)
 import           Control.Monad.Trans.Class             (lift)
 import           Control.Monad.Trans.Except            (mapExceptT)
-import           Control.Monad.Trans.Maybe             (hoistMaybe,
-                                                        maybeToExceptT)
 import           Data.Either                           (rights)
 import           Data.Foldable                         (fold, minimumBy)
 import           Data.Generics
 import           Data.Hashable
 import           Data.HashSet                          (HashSet)
 import qualified Data.HashSet                          as HS
-import           Data.List                             (foldl')
+import qualified Data.List                             as List
 import           Data.List.NonEmpty                    (NonEmpty ((:|)),
                                                         groupWith)
 import qualified Data.List.NonEmpty                    as NE
@@ -122,7 +120,7 @@ prepareRenameProvider state _pluginId (PrepareRenameParams (TextDocumentIdentifi
 renameModuleProvider :: Recorder (WithPriority Log)-> PluginMethodHandler IdeState Method_WorkspaceWillRenameFiles
 renameModuleProvider recorder state _ (RenameFilesParams renames) = do
     renameResults <- mapM renameFile renames
-    pure $ InL $ foldl' combineTextEdits (WorkspaceEdit mempty mempty mempty) $ catMaybes renameResults
+    pure $ InL $ List.foldl' combineTextEdits (WorkspaceEdit mempty mempty mempty) $ catMaybes renameResults
     where
         recorder' = cmapWithPrio LogModuleRename recorder
 

plugins/hls-rename-plugin/src/Ide/Plugin/Rename/ModuleRename.hs

@@ -50,7 +50,7 @@ instance Pretty Log where
   pretty log =
     "ModuleRename." <> case log of
       CorrectNames log -> "CorrectNames" <> colon <+> pretty log
-      LogRenameDependencies oldName fps -> "Rename of" <+> pretty oldName <+> "in" <+> (pretty $ map fromNormalizedFilePath fps)
+      LogRenameDependencies oldName fps -> "Rename of" <+> pretty oldName <+> "in files:" <+> (pretty $ map fromNormalizedFilePath fps)
       NoModuleName nfp -> "Could not execute rename of" <+> pretty (fromNormalizedFilePath nfp) <+> "as no module path could be determined."
       LogRenameModuleDeclaration nfp -> "Renaming module declaration for file" <+> pretty (fromNormalizedFilePath nfp)