[haskell-http-client] resolve oas 2.0 regressions (#198)

* [haskell-http-client] fix codegen issues

* ensure datatypeWithEnum is set on codegenParameter when is enum

* [haskell-http-client] fix isAlias + arrayModelType missing "datatype"

* [haskell-http-client] param.isListContainer is sometimes false for list types

* [haskell-http-client] gen MimeNoContent instances automatically

* [haskell-http-client] fix example-app and integration tests

* [haskell-http-client] update docs

samples/client/petstore/haskell-http-client/tests/Instances.hs

@@ -103,9 +103,7 @@ instance Arbitrary Animal where
     
 instance Arbitrary AnimalFarm where
   arbitrary =
-    
-    pure AnimalFarm
-     
+    AnimalFarm <$> arbitrary
 instance Arbitrary ApiResponse where
   arbitrary =
     ApiResponse
@@ -140,6 +138,13 @@ instance Arbitrary Capitalization where
       <*> arbitrary -- capitalizationScaEthFlowPoints :: Maybe Text
       <*> arbitrary -- capitalizationAttName :: Maybe Text
     
+instance Arbitrary Cat where
+  arbitrary =
+    Cat
+      <$> arbitrary -- catClassName :: Text
+      <*> arbitrary -- catColor :: Maybe Text
+      <*> arbitrary -- catDeclawed :: Maybe Bool
+    
 instance Arbitrary Category where
   arbitrary =
     Category
@@ -156,6 +161,13 @@ instance Arbitrary Client where
     Client
       <$> arbitrary -- clientClient :: Maybe Text
     
+instance Arbitrary Dog where
+  arbitrary =
+    Dog
+      <$> arbitrary -- dogClassName :: Text
+      <*> arbitrary -- dogColor :: Maybe Text
+      <*> arbitrary -- dogBreed :: Maybe Text
+    
 instance Arbitrary EnumArrays where
   arbitrary =
     EnumArrays
@@ -166,6 +178,7 @@ instance Arbitrary EnumTest where
   arbitrary =
     EnumTest
       <$> arbitrary -- enumTestEnumString :: Maybe Text
+      <*> arbitrary -- enumTestEnumStringRequired :: Text
       <*> arbitrary -- enumTestEnumInteger :: Maybe Int
       <*> arbitrary -- enumTestEnumNumber :: Maybe Double
       <*> arbitrary -- enumTestOuterEnum :: Maybe OuterEnum
@@ -181,7 +194,7 @@ instance Arbitrary FormatTest where
       <*> arbitrary -- formatTestDouble :: Maybe Double
       <*> arbitrary -- formatTestString :: Maybe Text
       <*> arbitrary -- formatTestByte :: ByteArray
-      <*> arbitrary -- formatTestBinary :: Maybe Binary
+      <*> arbitrary -- formatTestBinary :: Maybe FilePath
       <*> arbitrary -- formatTestDate :: Date
       <*> arbitrary -- formatTestDateTime :: Maybe DateTime
       <*> arbitrary -- formatTestUuid :: Maybe Text
@@ -300,20 +313,6 @@ instance Arbitrary User where
       <*> arbitrary -- userPhone :: Maybe Text
       <*> arbitrary -- userUserStatus :: Maybe Int
     
-instance Arbitrary Cat where
-  arbitrary =
-    Cat
-      <$> arbitrary -- catClassName :: Text
-      <*> arbitrary -- catColor :: Maybe Text
-      <*> arbitrary -- catDeclawed :: Maybe Bool
-    
-instance Arbitrary Dog where
-  arbitrary =
-    Dog
-      <$> arbitrary -- dogClassName :: Text
-      <*> arbitrary -- dogColor :: Maybe Text
-      <*> arbitrary -- dogBreed :: Maybe Text
-    
 
 
 
@@ -323,6 +322,9 @@ instance Arbitrary E'ArrayEnum where
 instance Arbitrary E'EnumFormString where
   arbitrary = arbitraryBoundedEnum
 
+instance Arbitrary E'EnumFormStringArray where
+  arbitrary = arbitraryBoundedEnum
+
 instance Arbitrary E'EnumInteger where
   arbitrary = arbitraryBoundedEnum
 
@@ -338,9 +340,6 @@ instance Arbitrary E'EnumString where
 instance Arbitrary E'Inner where
   arbitrary = arbitraryBoundedEnum
 
-instance Arbitrary E'Inner2 where
-  arbitrary = arbitraryBoundedEnum
-
 instance Arbitrary E'JustSymbol where
   arbitrary = arbitraryBoundedEnum