format

Author: soulomoon

ghcide/src/Development/IDE/Core/Compile.hs

@@ -947,13 +947,13 @@ indexHieFile se mod_summary srcPath !hash hf = do
               void $ LSP.sendRequest LSP.SMethod_WindowWorkDoneProgressCreate (LSP.WorkDoneProgressCreateParams u) $ liftIO . signalBarrier b
               _ready <- liftIO $ waitBarrier b
               LSP.runLspT env $ LSP.sendNotification LSP.SMethod_Progress $ LSP.ProgressParams u $
-                      toJSON $ LSP.WorkDoneProgressBegin
-                      { _kind = LSP.AString @"begin"
-                      ,  _title = "Indexing"
-                      , _cancellable = Nothing
-                      , _message = Nothing
-                      , _percentage = Nothing
-                      }
+                toJSON $ LSP.WorkDoneProgressBegin
+                { _kind = LSP.AString @"begin"
+                ,  _title = "Indexing"
+                , _cancellable = Nothing
+                , _message = Nothing
+                , _percentage = Nothing
+                }
               pure (Just u)
 
       (!done, !remaining) <- atomically $ do