Add command for case splitting

Author: txsmith

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": [

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;
   }