Fix -Wincomplete-uni-patterns warnings

hasufell · Mar 17, 2024 · 29728b2 · 29728b2
1 parent 96da64f
commit 29728b2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/StackageToHackage/Stackage.hs b/lib/StackageToHackage/Stackage.hs
@@ -141,8 +141,8 @@ mergeResolvers (Resolver r c p f) (Resolver r' c' p' f') =
     mergeDeps :: [Dep] -> [Dep] -> [Dep]
     mergeDeps lhs rhs =
         let nonGits = filter (not . isGitDep) lhs <> filter (not . isGitDep) rhs
-            gitsLhs = (\(SourceDep dep) -> dep) <$> filter isGitDep lhs
-            gitsRhs = (\(SourceDep dep) -> dep) <$> filter isGitDep rhs
+            gitsLhs = [dep | SourceDep dep <- lhs]
+            gitsRhs = [dep | SourceDep dep <- rhs]
             gitMerged = foldl' (\m key -> update key m) gitsRhs gitsLhs
         in (SourceDep <$> gitMerged) <> nonGits