Remove unused Liquid haskell commands

haskell · Dec 21, 2019 · d3bce65 · d3bce65
1 parent eac0709
commit d3bce65
Showing 1 changed file with 1 addition and 22 deletions.
diff --git a/src/Haskell/Ide/Engine/Plugin/Liquid.hs b/src/Haskell/Ide/Engine/Plugin/Liquid.hs
@@ -35,10 +35,7 @@ liquidDescriptor plId = PluginDescriptor
   { pluginId = plId
   , pluginName = "Liquid Haskell"
   , pluginDesc = "Integration with Liquid Haskell"
-  , pluginCommands =
-      [ PluginCommand "sayHello"   "say hello"                        sayHelloCmd
-      , PluginCommand "sayHelloTo" "say hello to the passed in param" sayHelloToCmd
-      ]
+  , pluginCommands = []
   , pluginCodeActionProvider = Nothing
   , pluginDiagnosticProvider = Just (DiagnosticProvider
                                     (S.singleton DiagnosticOnSave)
@@ -50,24 +47,6 @@ liquidDescriptor plId = PluginDescriptor
 
 -- ---------------------------------------------------------------------
 
-sayHelloCmd :: CommandFunc () T.Text
-sayHelloCmd = CmdSync $ \_ -> return (IdeResultOk sayHello)
-
-sayHelloToCmd :: CommandFunc T.Text T.Text
-sayHelloToCmd = CmdSync $ \n -> do
-  r <- liftIO $ sayHelloTo n
-  return $ IdeResultOk r
-
--- ---------------------------------------------------------------------
-
-sayHello :: T.Text
-sayHello = "hello from ExamplePlugin2"
-
-sayHelloTo :: T.Text -> IO T.Text
-sayHelloTo n = return $ "hello " <> n <> " from ExamplePlugin2"
-
--- ---------------------------------------------------------------------
-
 data LiquidJson
   = LJ
     { status :: T.Text