format

Author: soulomoon

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

@@ -948,12 +948,12 @@ indexHieFile se mod_summary srcPath !hash hf = do
               _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
-                }
+                  { _kind = LSP.AString @"begin"
+                  ,  _title = "Indexing"
+                  , _cancellable = Nothing
+                  , _message = Nothing
+                  , _percentage = Nothing
+                  }
               pure (Just u)
 
       (!done, !remaining) <- atomically $ do