Prefix progress updater with underscore for now

This gets rid of a warning while we don't use it
fwcd · Oct 14, 2024 · c83cd1b · c83cd1b
1 parent 56a9ae3
commit c83cd1b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Curry/LanguageServer/Handlers/Initialize.hs b/src/Curry/LanguageServer/Handlers/Initialize.hs
@@ -17,7 +17,7 @@ import qualified Language.LSP.Server as S
 initializeHandler :: J.TMessage J.Method_Initialize -> LSM ()
 initializeHandler req = do
     let token = req ^. J.params . J.workDoneToken
-    S.withIndefiniteProgress "Initializing Curry..." token S.NotCancellable $ \updater -> do
+    S.withIndefiniteProgress "Initializing Curry..." token S.NotCancellable $ \_updater -> do
         infoM "Building index store..."
         workspaceFolders <- fromMaybe [] <$> S.getWorkspaceFolders
         let folderToPath (J.WorkspaceFolder uri _) = J.uriToFilePath uri