Skip to content

Commit 594f3ea

Browse files
committed
Update new plugin
1 parent b91d84a commit 594f3ea

File tree

1 file changed

+2
-2
lines changed
  • plugins/hls-gadt-plugin/src/Ide/Plugin

1 file changed

+2
-2
lines changed

plugins/hls-gadt-plugin/src/Ide/Plugin/GADT.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@ toGADTSyntaxCommandId = "GADT.toGADT"
5252

5353
-- | A command replaces H98 data decl with GADT decl in place
5454
toGADTCommand :: PluginId -> CommandFunction IdeState ToGADTParams
55-
toGADTCommand plId state ToGADTParams{..} = response $ do
55+
toGADTCommand plId state ToGADTParams{..} = pluginResponse $ do
5656
nfp <- getNormalizedFilePath plId uri
5757
(decls, exts) <- getInRangeH98DeclsAndExts state range nfp
5858
(L ann decl) <- case decls of
@@ -82,7 +82,7 @@ toGADTCommand plId state ToGADTParams{..} = response $ do
8282
Nothing Nothing
8383

8484
codeActionHandler :: PluginMethodHandler IdeState TextDocumentCodeAction
85-
codeActionHandler state plId (CodeActionParams _ _ doc range _) = response $ do
85+
codeActionHandler state plId (CodeActionParams _ _ doc range _) = pluginResponse $ do
8686
nfp <- getNormalizedFilePath plId (doc ^. L.uri)
8787
(inRangeH98Decls, _) <- getInRangeH98DeclsAndExts state range nfp
8888
let actions = map (mkAction . printOutputable . tcdLName . unLoc) inRangeH98Decls

0 commit comments

Comments
 (0)