Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-git-lfs for openSUSE:Factory 
checked in at 2025-02-26 17:19:27
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-git-lfs (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-git-lfs.new.1873 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-git-lfs"

Wed Feb 26 17:19:27 2025 rev:5 rq:1248522 version:1.2.5

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-git-lfs/ghc-git-lfs.changes  2025-01-28 
16:41:18.619377828 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-git-lfs.new.1873/ghc-git-lfs.changes        
2025-02-26 17:20:26.152015689 +0100
@@ -1,0 +2,18 @@
+Tue Feb 18 17:32:40 UTC 2025 - Peter Simons <psim...@suse.com>
+
+- Update git-lfs to version 1.2.5.
+  haskell-git-lfs (1.2.5) unstable; urgency=medium
+
+    * Export mkEndpoint.
+
+   -- Joey Hess <i...@joeyh.name>  Tue, 18 Feb 2025 13:31:48 -0400
+
+  haskell-git-lfs (1.2.4) unstable; urgency=medium
+
+    * In guessEndpoint, when converting a http URL with a nonstandard
+      port to https, guess the standard https port, rather than
+      trying to use the same nonstandard port.
+
+   -- Joey Hess <i...@joeyh.name>  Tue, 18 Feb 2025 13:09:54 -0400
+
+-------------------------------------------------------------------

Old:
----
  git-lfs-1.2.3.tar.gz

New:
----
  git-lfs-1.2.5.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-git-lfs.spec ++++++
--- /var/tmp/diff_new_pack.KbfeaF/_old  2025-02-26 17:20:27.160057875 +0100
+++ /var/tmp/diff_new_pack.KbfeaF/_new  2025-02-26 17:20:27.164058043 +0100
@@ -19,7 +19,7 @@
 %global pkg_name git-lfs
 %global pkgver %{pkg_name}-%{version}
 Name:           ghc-%{pkg_name}
-Version:        1.2.3
+Version:        1.2.5
 Release:        0
 Summary:        Git-lfs protocol
 License:        AGPL-3.0-or-later

++++++ git-lfs-1.2.3.tar.gz -> git-lfs-1.2.5.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/git-lfs-1.2.3/CHANGELOG new/git-lfs-1.2.5/CHANGELOG
--- old/git-lfs-1.2.3/CHANGELOG 2001-09-09 03:46:40.000000000 +0200
+++ new/git-lfs-1.2.5/CHANGELOG 2001-09-09 03:46:40.000000000 +0200
@@ -1,3 +1,17 @@
+haskell-git-lfs (1.2.5) unstable; urgency=medium
+
+  * Export mkEndpoint.
+
+ -- Joey Hess <i...@joeyh.name>  Tue, 18 Feb 2025 13:31:48 -0400
+
+haskell-git-lfs (1.2.4) unstable; urgency=medium
+
+  * In guessEndpoint, when converting a http URL with a nonstandard
+    port to https, guess the standard https port, rather than
+    trying to use the same nonstandard port.
+
+ -- Joey Hess <i...@joeyh.name>  Tue, 18 Feb 2025 13:09:54 -0400
+
 haskell-git-lfs (1.2.3) unstable; urgency=medium
 
   * Expand containers bounds to allow 0.7
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/git-lfs-1.2.3/Network/GitLFS.hs 
new/git-lfs-1.2.5/Network/GitLFS.hs
--- old/git-lfs-1.2.3/Network/GitLFS.hs 2001-09-09 03:46:40.000000000 +0200
+++ new/git-lfs-1.2.5/Network/GitLFS.hs 2001-09-09 03:46:40.000000000 +0200
@@ -51,6 +51,7 @@
        -- * Endpoint discovery
        Endpoint,
        guessEndpoint,
+       mkEndpoint,
        modifyEndpointRequest,
        sshDiscoverEndpointCommand,
        parseSshDiscoverEndpointResponse,
@@ -306,12 +307,11 @@
                RequestUpload -> "upload"
        ]
 
--- Internal smart constructor for an Endpoint.
--- 
--- Since this uses the LFS batch API, it adds /objects/batch
--- to the endpoint url. It also adds the necessary headers to use JSON.
+-- | Smart constructor for an Endpoint, given the API URL.
 mkEndpoint :: URI.URI -> Maybe Endpoint
 mkEndpoint uri = do
+       -- Since this uses the LFS batch API, it adds /objects/batch
+       -- to the endpoint url. It also adds the necessary headers to use JSON.
        r <- requestFromURI uri
        let r' = addLfsJsonHeaders $ r { path = path r <> "/objects/batch" }
        return (Endpoint r')
@@ -336,15 +336,20 @@
 -- https://github.com/git-lfs/git-lfs/blob/master/docs/api/server-discovery.md
 guessEndpoint :: URI.URI -> Maybe Endpoint
 guessEndpoint uri = case URI.uriScheme uri of
-       "https:" -> endpoint
-       "http:" -> endpoint
-       _ -> Nothing
-  where
-       endpoint = mkEndpoint $ uri
+       "https:" -> endpoint uri
+       "http:" -> endpoint $ uri
                -- force https because the git-lfs protocol uses http
                -- basic auth tokens, which should not be exposed
                { URI.uriScheme = "https:"
-               , URI.uriPath = guessedpath
+               -- use https port, not any nonstandard http port
+               , URI.uriAuthority = do
+                       auth <- URI.uriAuthority uri
+                       Just $ auth { URI.uriPort = "" }
+               }
+       _ -> Nothing
+  where
+       endpoint uri' = mkEndpoint $ uri'
+               { URI.uriPath = guessedpath
                }
        
        guessedpath
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/git-lfs-1.2.3/git-lfs.cabal 
new/git-lfs-1.2.5/git-lfs.cabal
--- old/git-lfs-1.2.3/git-lfs.cabal     2001-09-09 03:46:40.000000000 +0200
+++ new/git-lfs-1.2.5/git-lfs.cabal     2001-09-09 03:46:40.000000000 +0200
@@ -1,5 +1,5 @@
 Name: git-lfs
-Version: 1.2.3
+Version: 1.2.5
 Cabal-Version: >= 1.10
 License: AGPL-3
 Maintainer: Joey Hess <i...@joeyh.name>

Reply via email to