@@ -3,28 +3,30 @@ module Development.IDE.Plugin.Plugins.FillHole
33 ) where
44
55import Control.Lens
6- import Control.Monad (guard )
6+ import Control.Monad (guard )
77import Data.Char
8- import qualified Data.Text as T
9- import Development.IDE (FileDiagnostic ,
10- fdLspDiagnosticL ,
11- printOutputable )
12- import Development.IDE.GHC.Compat (defaultSDocContext ,
13- renderWithContext , SDoc )
14- import Development.IDE.GHC.Compat.Error (TcRnMessageDetailed (.. ),
15- _TcRnMessageWithCtx ,
16- _TcRnMessageWithInfo ,
17- hole_occ ,
18- msgEnvelopeErrorL )
19- import Development.IDE.Types.Diagnostics (_SomeStructuredMessage ,
20- fdStructuredMessageL )
21- import GHC.Tc.Errors.Types (ErrInfo (.. ))
22- import Ide.PluginUtils (unescape )
23- import Language.LSP.Protocol.Lens (HasRange (.. ))
24- import Language.LSP.Protocol.Types (TextEdit (.. ))
25- import Text.Regex.TDFA (MatchResult (.. ), (=~) )
26- import GHC.Utils.Outputable (SDocContext (.. ))
27- import Development.IDE.Plugin.Plugins.Diagnostic (diagReportHoleError )
8+ import qualified Data.Text as T
9+ import Development.IDE (FileDiagnostic ,
10+ fdLspDiagnosticL ,
11+ printOutputable )
12+ import Development.IDE.GHC.Compat (SDoc ,
13+ defaultSDocContext ,
14+ renderWithContext )
15+ import Development.IDE.GHC.Compat.Error (TcRnMessageDetailed (.. ),
16+ _TcRnMessageWithCtx ,
17+ _TcRnMessageWithInfo ,
18+ hole_occ ,
19+ msgEnvelopeErrorL )
20+ import Development.IDE.Plugin.Plugins.Diagnostic (diagReportHoleError )
21+ import Development.IDE.Types.Diagnostics (_SomeStructuredMessage ,
22+ fdStructuredMessageL )
23+ import GHC.Tc.Errors.Types (ErrInfo (.. ))
24+ import GHC.Utils.Outputable (SDocContext (.. ))
25+ import Ide.PluginUtils (unescape )
26+ import Language.LSP.Protocol.Lens (HasRange (.. ))
27+ import Language.LSP.Protocol.Types (TextEdit (.. ))
28+ import Text.Regex.TDFA (MatchResult (.. ),
29+ (=~) )
2830
2931suggestFillHole :: FileDiagnostic -> [(T. Text , TextEdit )]
3032suggestFillHole diag
0 commit comments