From 826f75b3f30776df164cb54a1ad8df83eb143b2a Mon Sep 17 00:00:00 2001
From: Daniel Firth <dan.firth@homotopic.tech>
Date: Fri, 30 Dec 2022 10:33:03 +0000
Subject: [PATCH] horizon.dhall: add callGitCabal

---
 horizon.dhall | 32 ++++++++++++--------------------
 1 file changed, 12 insertions(+), 20 deletions(-)

diff --git a/horizon.dhall b/horizon.dhall
index ba5ae973..c3b573ad 100644
--- a/horizon.dhall
+++ b/horizon.dhall
@@ -11,6 +11,14 @@ let callHorizonAdopted
           revision
           (None Text)
 
+let callGitCabal
+    : H.Subdir → H.HaskellPackage.Type
+    = λ(subdir : H.Subdir) →
+        H.callGit
+          "https://gitlab.haskell.org/ghc/packages/Cabal"
+          "e9fdb85427ad1ef11a25c8b1f2286614c86a65ff"
+          (Some subdir)
+
 let callGitServant
     : H.Subdir → H.HaskellPackage.Type
     = λ(subdir : H.Subdir) →
@@ -21,26 +29,10 @@ let callGitServant
 
 let packages =
       { Cabal = H.callHackage "Cabal" "3.8.1.0"
-      , Cabal-QuickCheck =
-          H.callGit
-            "https://gitlab.haskell.org/ghc/packages/Cabal"
-            "e9fdb85427ad1ef11a25c8b1f2286614c86a65ff"
-            (Some "Cabal-QuickCheck")
-      , Cabal-described =
-          H.callGit
-            "https://gitlab.haskell.org/ghc/packages/Cabal"
-            "e9fdb85427ad1ef11a25c8b1f2286614c86a65ff"
-            (Some "Cabal-described")
-      , Cabal-syntax =
-          H.callGit
-            "https://gitlab.haskell.org/ghc/packages/Cabal"
-            "e9fdb85427ad1ef11a25c8b1f2286614c86a65ff"
-            (Some "Cabal-syntax")
-      , Cabal-tree-diff =
-          H.callGit
-            "https://gitlab.haskell.org/ghc/packages/Cabal"
-            "e9fdb85427ad1ef11a25c8b1f2286614c86a65ff"
-            (Some "Cabal-tree-diff")
+      , Cabal-QuickCheck = callGitCabal "Cabal-QuickCheck"
+      , Cabal-described = callGitCabal "Cabal-described"
+      , Cabal-syntax = callGitCabal "Cabal-syntax"
+      , Cabal-tree-diff = callGitCabal "Cabal-tree-diff"
       , ChasingBottoms = H.callHackage "ChasingBottoms" "1.3.1.12"
       , Decimal = H.callHackage "Decimal" "0.5.2"
       , Diff = H.callHackage "Diff" "0.4.1"
-- 
GitLab