Prefer autoscaler/v2beta2 (dhall-lang#113)

Fixes dhall-lang/dhall-kubernetes#112
TristanCacqueray · Feb 28, 2020 · ea3cf30 · ea3cf30
1 parent 0f12913
commit ea3cf30
Showing 1 changed file with 23 additions and 2 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -138,9 +138,30 @@ getVersion ModelName{..} =
         Left  _       -> Nothing
         Right version -> Just version
 
+-- https://github.com/dhall-lang/dhall-kubernetes/issues/112
+data Autoscaling = AutoscalingV1 | AutoscalingV2beta1 | AutoscalingV2beta2
+    deriving (Eq, Ord)
+
+getAutoscaling :: ModelName -> Maybe Autoscaling
+getAutoscaling ModelName{..}
+    | Text.isPrefixOf "io.k8s.api.autoscaling.v1"      unModelName =
+        Just AutoscalingV1
+    | Text.isPrefixOf "io.k8s.api.autoscaling.v2beta1" unModelName =
+        Just AutoscalingV2beta1
+    | Text.isPrefixOf "io.k8s.api.autoscaling.v2beta2" unModelName =
+        Just AutoscalingV2beta2
+    | otherwise =
+        Nothing
+
 preferStableResource :: DuplicateHandler
-preferStableResource (_, names) =
-    return (List.maximumBy (Ord.comparing getVersion) names)
+preferStableResource (_, names) = do
+    let issue112 = Ord.comparing getAutoscaling
+
+    let defaultComparison = Ord.comparing getVersion
+
+    let comparison = issue112 <> defaultComparison
+
+    return (List.maximumBy comparison names)
 
 skipDuplicatesHandler :: DuplicateHandler
 skipDuplicatesHandler = const Nothing