Fix Map alias

codedownio · Jul 27, 2024 · 842754d · 842754d
1 parent 6c8dc09
commit 842754d
Show file tree

Hide file tree

Showing 10 changed files with 13 additions and 11 deletions.
diff --git a/flake.nix b/flake.nix
@@ -113,8 +113,10 @@
           # Delete openapi.yaml from the extra-source-files
           ${pkgs.gnused}/bin/sed -i '/^\s*openapi\.yaml$/d' "${dir}/docker-engine.cabal"
 
-          # Patch up some problems
-          echo "type Map = A.Object" >> "${dir}/lib/DockerEngine/Model.hs"
+          # Patch up some problems.
+          # This "Map" type is emitted for the "Topology" definition. Not sure how to correct
+          # the spec, so let's just provide a type alias here.
+          echo "type Map = HM.HashMap String String" >> "${dir}/lib/DockerEngine/Model.hs"
         '';
 
       in

diff --git a/v1.36/lib/DockerEngine/Model.hs b/v1.36/lib/DockerEngine/Model.hs
@@ -9652,4 +9652,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.37/lib/DockerEngine/Model.hs b/v1.37/lib/DockerEngine/Model.hs
@@ -9663,4 +9663,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.38/lib/DockerEngine/Model.hs b/v1.38/lib/DockerEngine/Model.hs
@@ -9772,4 +9772,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.39/lib/DockerEngine/Model.hs b/v1.39/lib/DockerEngine/Model.hs
@@ -10194,4 +10194,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.40/lib/DockerEngine/Model.hs b/v1.40/lib/DockerEngine/Model.hs
@@ -10382,4 +10382,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.41/lib/DockerEngine/Model.hs b/v1.41/lib/DockerEngine/Model.hs
@@ -10756,4 +10756,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.42/lib/DockerEngine/Model.hs b/v1.42/lib/DockerEngine/Model.hs
@@ -11282,4 +11282,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.43/lib/DockerEngine/Model.hs b/v1.43/lib/DockerEngine/Model.hs
@@ -11315,4 +11315,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
diff --git a/v1.44/lib/DockerEngine/Model.hs b/v1.44/lib/DockerEngine/Model.hs
@@ -11506,4 +11506,4 @@ toTaskState = \case
 
 
 
-type Map = A.Object
+type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -9652,4 +9652,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -9663,4 +9663,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -9772,4 +9772,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -10194,4 +10194,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -10382,4 +10382,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -10756,4 +10756,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -11282,4 +11282,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -11315,4 +11315,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String
Original file line number	Diff line number	Diff line change
Expand Up		@@ -11506,4 +11506,4 @@ toTaskState = \case



		type Map = A.Object
		type Map = HM.HashMap String String