From 2fea370d4c67078efffbe7ff1b9b0c44ca48915c Mon Sep 17 00:00:00 2001
From: Greg Baimetov <githubemail@example.com>
Date: Thu, 7 Nov 2024 12:41:58 -0800
Subject: [PATCH] make fourmolu happy

---
 src/StaticLS/IDE/InlayHints.hs |  4 ++--
 src/StaticLS/Server.hs         | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/StaticLS/IDE/InlayHints.hs b/src/StaticLS/IDE/InlayHints.hs
index d0b20fa..fda6133 100644
--- a/src/StaticLS/IDE/InlayHints.hs
+++ b/src/StaticLS/IDE/InlayHints.hs
@@ -50,7 +50,7 @@ getTypedefInlays absPath getTypes = do
 fmtTypeStr :: Text -> Text
 fmtTypeStr text
   | text == "" = ""
-  | Text.length text > 50 = "" -- hide overly long inlays and buggy inlays 
+  | Text.length text > 50 = "" -- hide overly long inlays and buggy inlays
   | otherwise = " :: " <> text
 
 getTypedefInlays_ :: AbsPath -> StaticLsM [InlayHint]
@@ -65,7 +65,7 @@ getTypedefInlays_ absPath = do
       getTypedefInlays absPath getTypes
 
 nodeToDescendants :: DynNode -> [DynNode]
-nodeToDescendants node = node : (nodeToDescendants. getDynNode =<< node.nodeChildren)
+nodeToDescendants node = node : (nodeToDescendants . getDynNode =<< node.nodeChildren)
 
 selectNodesToType :: DynNode -> [DynNode]
 selectNodesToType root = do
diff --git a/src/StaticLS/Server.hs b/src/StaticLS/Server.hs
index bb7f697..8b6c60b 100644
--- a/src/StaticLS/Server.hs
+++ b/src/StaticLS/Server.hs
@@ -196,7 +196,7 @@ serverDef argOptions logger = do
       , configSection = ""
       , parseConfig = \_conf _value -> Right ()
       , doInitialize = do
-           initServer reactorChan argOptions logger
+          initServer reactorChan argOptions logger
       , -- TODO: Do handlers need to inspect clientCapabilities?
         staticHandlers = \_clientCapabilities ->
           mapHandlers goReq goNot $
@@ -221,11 +221,11 @@ serverDef argOptions logger = do
               , handleResolveCodeAction
               , handleDocumentSymbols
               , handleCompletion
-	      -- Disabled. Will enable in its own branch
-              -- , handleInlayHintRequest 
-              -- Currently disabled until we support configuration for the formatter
+              , -- Disabled. Will enable in its own branch
+                -- , handleInlayHintRequest
+                -- Currently disabled until we support configuration for the formatter
                 -- , handleFormat
-              , handleCompletionItemResolve
+                handleCompletionItemResolve
               ]
       , interpretHandler = \env -> Iso (LSP.runLspT env) liftIO
       , options = lspOptions