format

haskell · May 16, 2024 · a2b0109 · a2b0109
1 parent bb0f276
commit a2b0109
Showing 1 changed file with 15 additions and 15 deletions.
diff --git a/lsp-test/src/Language/LSP/Test.hs b/lsp-test/src/Language/LSP/Test.hs
@@ -276,22 +276,22 @@ runSessionWithHandles' serverProc serverIn serverOut config' caps rootDir sessio
 
   config <- envOverrideConfig config'
 
-  let initializeParams = 
+  let initializeParams =
         InitializeParams
-        { _workDoneToken = Nothing
-        -- Narrowing to Int32 here, but it's unlikely that a PID will
-        -- be outside the range
-        , _processId = InL $ fromIntegral pid 
-        , _clientInfo = Just lspTestClientInfo
-        , _locale = Nothing
-        , _rootPath = Just (InL $ T.pack absRootDir)
-        , _rootUri = InL $ filePathToUri absRootDir
-        , _capabilities = caps
-        -- TODO: make this configurable?
-        , _initializationOptions = Just $ Object $ lspConfig config' 
-        , _trace = Just TraceValue_Off
-        , _workspaceFolders = InL <$> initialWorkspaceFolders config
-        }
+          { _workDoneToken = Nothing
+          , -- Narrowing to Int32 here, but it's unlikely that a PID will
+            -- be outside the range
+            _processId = InL $ fromIntegral pid
+          , _clientInfo = Just lspTestClientInfo
+          , _locale = Nothing
+          , _rootPath = Just (InL $ T.pack absRootDir)
+          , _rootUri = InL $ filePathToUri absRootDir
+          , _capabilities = caps
+          , -- TODO: make this configurable?
+            _initializationOptions = Just $ Object $ lspConfig config'
+          , _trace = Just TraceValue_Off
+          , _workspaceFolders = InL <$> initialWorkspaceFolders config
+          }
   runSession' serverIn serverOut serverProc listenServer config caps rootDir exitServer $ do
     -- Wrap the session around initialize and shutdown calls
     initReqId <- sendRequest SMethod_Initialize initializeParams