File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
plugins/hls-gadt-plugin/src/Ide/Plugin Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -52,7 +52,7 @@ toGADTSyntaxCommandId = "GADT.toGADT"
52
52
53
53
-- | A command replaces H98 data decl with GADT decl in place
54
54
toGADTCommand :: PluginId -> CommandFunction IdeState ToGADTParams
55
- toGADTCommand plId state ToGADTParams {.. } = response $ do
55
+ toGADTCommand plId state ToGADTParams {.. } = pluginResponse $ do
56
56
nfp <- getNormalizedFilePath plId uri
57
57
(decls, exts) <- getInRangeH98DeclsAndExts state range nfp
58
58
(L ann decl) <- case decls of
@@ -82,7 +82,7 @@ toGADTCommand plId state ToGADTParams{..} = response $ do
82
82
Nothing Nothing
83
83
84
84
codeActionHandler :: PluginMethodHandler IdeState TextDocumentCodeAction
85
- codeActionHandler state plId (CodeActionParams _ _ doc range _) = response $ do
85
+ codeActionHandler state plId (CodeActionParams _ _ doc range _) = pluginResponse $ do
86
86
nfp <- getNormalizedFilePath plId (doc ^. L. uri)
87
87
(inRangeH98Decls, _) <- getInRangeH98DeclsAndExts state range nfp
88
88
let actions = map (mkAction . printOutputable . tcdLName . unLoc) inRangeH98Decls
You can’t perform that action at this time.
0 commit comments