Merge pull request #103 from commercialhaskell/casa-stackage

Update casa urls
commercialhaskell · Aug 17, 2023 · 2bcf70c · 2bcf70c
2 parents ec11e75 + e3c87ec
commit 2bcf70c
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -2,6 +2,8 @@
 
 ## v0.9.2
 
+* `defaultCasaRepoPrefix` references https://casa.stackage.org, instead of
+  https://casa.fpcomplete.com.
 * Depend on `crypton` instead of `cryptonite`.
 * Depend on `tar-conduit-0.4.0`, which will tolerate long filenames and
   directory names in archives created by `git archive`.

diff --git a/int/Pantry/Types.hs b/int/Pantry/Types.hs
@@ -311,7 +311,7 @@ data PantryConfig = PantryConfig
   , pcConnectionCount :: !Int
     -- ^ concurrently open downloads
   , pcCasaConfig :: !(Maybe (CasaRepoPrefix, Int))
-    -- ^ Optionally, the Casa pull URL e.g. @https://casa.fpcomplete.com@ and
+    -- ^ Optionally, the Casa pull URL e.g. @https://casa.stackage.org@ and
     -- the maximum number of Casa keys to pull per request.
   , pcSnapshotLocation :: SnapName -> RawSnapshotLocation
     -- ^ The location of snapshot synonyms

diff --git a/src/Pantry.hs b/src/Pantry.hs
@@ -282,7 +282,7 @@ withPantryConfig ::
   -> Int
      -- ^ Maximum connection count
   -> CasaRepoPrefix
-     -- ^ The casa pull URL e.g. https://casa.fpcomplete.com/v1/pull.
+     -- ^ The casa pull URL e.g. https://casa.stackage.org/v1/pull.
   -> Int
      -- ^ Max casa keys to pull per request.
   -> (SnapName -> RawSnapshotLocation)
@@ -344,7 +344,7 @@ withPantryConfig' root pic he count mCasaConfig snapLoc inner = do
 --
 -- @since 0.1.1.1
 defaultCasaRepoPrefix :: CasaRepoPrefix
-defaultCasaRepoPrefix = $(thParserCasaRepo "https://casa.fpcomplete.com")
+defaultCasaRepoPrefix = $(thParserCasaRepo "https://casa.stackage.org")
 
 -- | Default max keys to pull per request.
 --