diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Revision history for lsp
 
+## 1.1.1.0
+
+* Don't send begin progress notification twice (@wz1000)
+
 ## 1.1.0.0
 
 * Fix prepareRename reponse and prepareProvider (@kirelagin)
diff --git a/lsp.cabal b/lsp.cabal
--- a/lsp.cabal
+++ b/lsp.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.2
 name:                lsp
-version:             1.1.0.0
+version:             1.1.1.0
 synopsis:            Haskell library for the Microsoft Language Server Protocol
 
 description:         An implementation of the types, and basic message server to
diff --git a/src/Language/LSP/Server/Core.hs b/src/Language/LSP/Server/Core.hs
--- a/src/Language/LSP/Server/Core.hs
+++ b/src/Language/LSP/Server/Core.hs
@@ -597,11 +597,6 @@
             Left _err -> pure ()
             Right () -> pure ()
 
-  -- Send initial notification
-  sendNotification SProgress $
-    fmap Begin $ ProgressParams progId $
-      WorkDoneProgressBeginParams title (Just cancellable') Nothing initialPercentage
-
   -- Send the begin and done notifications via 'bracket_' so that they are always fired
   res <- withRunInIO $ \runInBase ->
     E.bracket_