Add CustomInstances.hs and don't git clean every time

Author: thomasjm

flake.nix

@@ -37,6 +37,7 @@
 
             # Copy handwritten files
             cp ${./handwritten/CustomTypes.hs} "$out/lib/Kubernetes/OpenAPI/CustomTypes.hs"
+            cp ${./handwritten/CustomInstances.hs} "$out/tests/CustomInstances.hs"
 
             # Fill in the package version
             ${pkgs.gnused}/bin/sed -i "s/^version:\s*\(.*\)/version:        $PACKAGE_VERSION/" "$out/kubernetes-api.cabal"
@@ -55,9 +56,6 @@
               packages:
               - zlib
             EOM
-
-            # Remove unnecessary files
-            git clean -fdx "$out"
           '';
 
           set-stack-version = pkgs.writeShellScriptBin "build-kubernetes-api-client.sh" ''

handwritten/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.20/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.21/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.22/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.23/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.24/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.25/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.26/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.27/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.28/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.29/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-api-1.30/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)