diff --git a/package.json b/package.json index 6f9b8391..2c4a1aac 100644 --- a/package.json +++ b/package.json @@ -147,6 +147,11 @@ "command": "hie.commands.showType", "title": "Haskell: Show type", "description": "Show type for the expression" + }, + { + "command": "hie.commands.caseSplit", + "title": "Haskell: Split case", + "description": "Generate pattern matches for the identifier under the cursor" } ], "keybindings": [ diff --git a/src/extension.ts b/src/extension.ts index 998bdd15..a1822ecf 100644 --- a/src/extension.ts +++ b/src/extension.ts @@ -203,6 +203,7 @@ function activateHieNoCheck(context: ExtensionContext, folder: WorkspaceFolder, registerHiePointCommand('hie.commands.liftTopLevel', 'hare:lifttotoplevel', context); registerHiePointCommand('hie.commands.deleteDef', 'hare:deletedef', context); registerHiePointCommand('hie.commands.genApplicative', 'hare:genapplicative', context); + registerHiePointCommand('hie.commands.caseSplit', 'ghcmod:casesplit', context); hieCommandsRegistered = true; }