[NO-ISSUE] Handle "@haskell" as "@hackage" for package indexes

flora-pm · Nov 29, 2023 · 9483290 · 9483290
1 parent a5e7146
commit 9483290
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/flora.cabal b/flora.cabal
@@ -27,13 +27,13 @@ flag prod
 
 common common-extensions
   default-extensions:
-    NoStarIsType
     DataKinds
     DeriveAnyClass
     DerivingStrategies
     DerivingVia
     DuplicateRecordFields
     LambdaCase
+    NoStarIsType
     OverloadedLabels
     OverloadedRecordDot
     OverloadedStrings

diff --git a/src/core/Flora/Model/PackageIndex/Query.hs b/src/core/Flora/Model/PackageIndex/Query.hs
@@ -14,5 +14,8 @@ import Flora.Model.PackageIndex.Types
 
 getPackageIndexByName :: DB :> es => Text -> Eff es (Maybe PackageIndex)
 getPackageIndexByName repository =
-  dbtToEff $
-    selectOneByField [field| repository |] (Only repository)
+  let index = case repository of
+        "haskell" -> "hackage"
+        r -> r
+   in dbtToEff $
+        selectOneByField [field| repository |] (Only index)