Session.initialize takes initialization options

CHANGELOG.md

@@ -1,9 +1,10 @@
 # Revision history for lsp-client
 
-## 0.3.1.0  -- 2024-06-24
+## 0.4.0.0  -- 2024-06-24
 
 * Introduce SessionT and MonadSession
 * Lift all functions to MonadSession
+* Session.initialize now takes LSP initialization options
 * Add Session.getAllVersionedDocs
 
 ## 0.3.0.0  -- 2024-04-04

lsp-client.cabal

@@ -1,6 +1,6 @@
 cabal-version:       3.0
 name:                lsp-client
-version:             0.3.1.0
+version:             0.4.0.0
 synopsis:            Haskell library for Language Server Protocol clients
 homepage:            https://github.com/ners/lsp-client/blob/master/README.md
 license:             Apache-2.0

src/Language/LSP/Client/Session.hs

@@ -17,6 +17,7 @@ import Control.Monad.IO.Class (MonadIO (liftIO))
 import Control.Monad.Reader (ReaderT (runReaderT), ask, asks)
 import Control.Monad.State (StateT, execState)
 import Control.Monad.Trans.Class (MonadTrans, lift)
+import Data.Aeson (Value)
 import Data.Default (def)
 import Data.Foldable (foldl', foldr', forM_, toList)
 import Data.Function (on)
@@ -361,8 +362,8 @@ lspClientInfo = #name .== "lsp-client" .+ #version .== Just CURRENT_PACKAGE_VERS
 {- | Performs the initialisation handshake and synchronously waits for its completion.
 When the function completes, the session is initialised.
 -}
-initialize :: (MonadSession m) => m ()
-initialize = liftSession $ do
+initialize :: (MonadSession m) => Maybe Value -> m ()
+initialize options = liftSession $ do
     pid <- liftIO getProcessID
     response <-
         request
@@ -374,7 +375,7 @@ initialize = liftSession $ do
                 , _locale = Nothing
                 , _rootPath = Nothing
                 , _rootUri = InR Null
-                , _initializationOptions = Nothing
+                , _initializationOptions = options
                 , _capabilities = fullCaps
                 , _trace = Just TraceValues_Off
                 , _workspaceFolders = Nothing