Signal code actions in initialize response (#150)

Author: jacg

src/Development/IDE/LSP/LanguageServer.hs

@@ -180,8 +180,9 @@ data Message
 
 
 modifyOptions :: LSP.Options -> LSP.Options
-modifyOptions x = x{LSP.textDocumentSync = Just $ tweak orig}
+modifyOptions x = x{ LSP.textDocumentSync   = Just $ tweakTDS origTDS
+                   , LSP.codeActionProvider = Just $ CodeActionOptionsStatic True }
     where
-        tweak x = x{_openClose=Just True, _change=Just TdSyncIncremental, _save=Just $ SaveOptions Nothing}
-        orig = fromMaybe tdsDefault $ LSP.textDocumentSync x
+        tweakTDS tds = tds{_openClose=Just True, _change=Just TdSyncIncremental, _save=Just $ SaveOptions Nothing}
+        origTDS = fromMaybe tdsDefault $ LSP.textDocumentSync x
         tdsDefault = TextDocumentSyncOptions Nothing Nothing Nothing Nothing Nothing

test/exe/Main.hs

@@ -58,7 +58,7 @@ initializeResponseTests = withResource acquire release tests where
     , chk "NO doc highlight"     _documentHighlightProvider  Nothing
     , chk "NO doc symbol"           _documentSymbolProvider  Nothing
     , chk "NO workspace symbol"    _workspaceSymbolProvider  Nothing
-    , chk "NO code action"              _codeActionProvider  Nothing -- available but not declared !
+    , chk "   code action"             _codeActionProvider $ Just $ CodeActionOptionsStatic True
     , chk "NO code lens"                  _codeLensProvider  Nothing
     , chk "NO doc formatting"   _documentFormattingProvider  Nothing
     , chk "NO doc range formatting"