Merge branch 'bugfix'

# Conflicts:
#	RELEASE_NOTES.md
#	src/LockFileComparer/AssemblyInfo.fs
#	src/Paket.Bootstrapper/Properties/AssemblyInfo.cs
#	src/Paket.Core/AssemblyInfo.fs
#	src/Paket/AssemblyInfo.fs

Author: forki

RELEASE_NOTES.md

@@ -1,6 +1,9 @@
-#### 6.0.0-alpha003 - 2019-12-03
+#### 6.0.0-alpha004 - 2019-12-04
 * Full .NET Core / SDK compatible version
 
+#### 5.240.0 - 2019-12-04
+* WORKAROUND: Microsoft pushed couple of invalid zips to nuget.org this works around it - https://github.com/fsprojects/Paket/issues/3743
+
 #### 5.239.0 - 2019-12-03
 * PaketUpdate failed with semver 2.0 version and jfrog hosted repository - https://github.com/fsprojects/Paket/issues/3601
 

src/Paket.Core/Dependencies/NuGetCache.fs

@@ -533,9 +533,23 @@ let ExtractPackage(fileName:string, targetFolder, packageName:PackageName, versi
                 ZipFile.ExtractToDirectory(fileName, targetFolder)
             with
             | exn ->
-                let text = if detailed then sprintf "%s In rare cases a firewall might have blocked the download. Please look into the file and see if it contains text with further information." Environment.NewLine else ""
-                let path = try Path.GetFullPath fileName with :? PathTooLongException -> sprintf "%s (!too long!)" fileName
-                raise (Exception(sprintf "Error during extraction of %s.%s%s" path Environment.NewLine text, exn))
+                try
+                    traceWarnfn "Package couldn't be extracted to %s. Message: %s. Trying to extract files individually." targetFolder exn.Message
+                    use archive = ZipFile.OpenRead fileName
+                    for entry in archive.Entries do
+                        let destinationPath = Path.GetFullPath(Path.Combine(targetFolder, entry.FullName))
+                        let fi = FileInfo(destinationPath)
+                        if not fi.Directory.Exists then
+                            fi.Directory.Create()
+                        if fi.Exists then
+                            try fi.Delete() with | _ -> ()
+
+                        entry.ExtractToFile(destinationPath)
+                with
+                | exn ->
+                    let text = if detailed then sprintf "%s In rare cases a firewall might have blocked the download. Please look into the file and see if it contains text with further information." Environment.NewLine else ""
+                    let path = try Path.GetFullPath fileName with :? PathTooLongException -> sprintf "%s (!too long!)" fileName
+                    raise (Exception(sprintf "Error during extraction of %s.%s%s" path Environment.NewLine text, exn))
 
             cleanup directory
             if verbose then