From 2d8df0deb7b940b969153cf48f5ecc61a082417e Mon Sep 17 00:00:00 2001
From: Daniel Firth <dan.firth@homotopic.tech>
Date: Fri, 30 Dec 2022 10:30:44 +0000
Subject: [PATCH] horizon.dhall: add callGitServant
---
horizon.dhall | 38 +++++++++++++-------------------------
1 file changed, 13 insertions(+), 25 deletions(-)
diff --git a/horizon.dhall b/horizon.dhall
index 14c40bea..ba5ae973 100644
--- a/horizon.dhall
+++ b/horizon.dhall
@@ -11,6 +11,14 @@ let callHorizonAdopted
revision
(None Text)
+let callGitServant
+ : H.Subdir → H.HaskellPackage.Type
+ = λ(subdir : H.Subdir) →
+ H.callGit
+ "https://github.com/TeofilC/servant"
+ "76fc90a51f915230bbe1e0d1dbe9727fcdc7a0fc"
+ (Some subdir)
+
let packages =
{ Cabal = H.callHackage "Cabal" "3.8.1.0"
, Cabal-QuickCheck =
@@ -704,42 +712,22 @@ let packages =
, semigroupoids = H.callHackage "semigroupoids" "5.3.7"
, semirings = H.callHackage "semirings" "0.6"
, serialise = H.callHackage "serialise" "0.2.6.0"
- , servant =
- H.callGit
- "https://github.com/TeofilC/servant"
- "76fc90a51f915230bbe1e0d1dbe9727fcdc7a0fc"
- (Some "servant")
+ , servant = callGitServant "servant"
, servant-blaze = H.callHackage "servant-blaze" "0.9.1"
- , servant-client-core =
- H.callGit
- "https://github.com/TeofilC/servant"
- "76fc90a51f915230bbe1e0d1dbe9727fcdc7a0fc"
- (Some "servant-client-core")
- , servant-client =
- H.callGit
- "https://github.com/TeofilC/servant"
- "76fc90a51f915230bbe1e0d1dbe9727fcdc7a0fc"
- (Some "servant-client")
+ , servant-client-core = callGitServant "servant-client-core"
+ , servant-client = callGitServant "servant-client"
, servant-docs = H.callHackage "servant-docs" "0.12"
, servant-effectful =
H.callGit
"https://github.com/kleidukos/servant-effectful"
"65e3041c6cfbc315b20ad22ca18f61dda104eec8"
(None Text)
- , servant-foreign =
- H.callGit
- "https://github.com/TeofilC/servant"
- "76fc90a51f915230bbe1e0d1dbe9727fcdc7a0fc"
- (Some "servant-foreign")
+ , servant-foreign = callGitServant "servant-foreign"
, servant-lucid = H.callHackage "servant-lucid" "0.9.0.5"
, servant-multipart = H.callHackage "servant-multipart" "0.12.1"
, servant-multipart-api = H.callHackage "servant-multipart-api" "0.12.1"
, servant-polysemy = H.callHackage "servant-polysemy" "0.1.3"
- , servant-server =
- H.callGit
- "https://github.com/TeofilC/servant"
- "76fc90a51f915230bbe1e0d1dbe9727fcdc7a0fc"
- (Some "servant-server")
+ , servant-server = callGitServant "servant-server"
, servant-swagger = H.callHackage "servant-swagger" "1.1.11"
, servant-swagger-ui = H.callHackage "servant-swagger-ui" "0.3.5.4.5.0"
, servant-swagger-ui-core =
--
GitLab