Merge pull request #226 from mbj/add/instances

Add Eq and Show instances

gen/Stratosphere/Tag.hs

@@ -8,6 +8,7 @@ import Stratosphere.ResourceProperties
 import Stratosphere.Value
 data Tag
   = Tag {key :: (Value Prelude.Text), value :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkTag :: Value Prelude.Text -> Value Prelude.Text -> Tag
 mkTag key value = Tag {key = key, value = value}
 instance ToResourceProperties Tag where

gen/Stratosphere/Tag.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data Tag :: Prelude.Type
 instance ToResourceProperties Tag
+instance Prelude.Eq Tag
+instance Prelude.Show Tag
 instance JSON.ToJSON Tag

generator/src/Stratosphere/Generator/Declaration.hs

@@ -129,7 +129,7 @@ genRecord Record{..} = runGen $ do
         recordName
         []
         [GHC.recordCon recordName fields]
-        []
+        [GHC.derivingStock [GHC.var "Prelude.Eq", GHC.var "Prelude.Show"]]
       where
         genField :: Raw.PropertyName -> Raw.Property -> Generator (GHC.OccNameStr, GHC.Field)
         genField propertyName Raw.Property{..} =
@@ -309,11 +309,15 @@ genRecordBoot :: Record  -> ([GHC.HsDecl'], State)
 genRecordBoot Record{..} = runGen $ do
   recordDeclaration          <- genRecordDeclaration
   resourcePropertiesInstance <- genResourcePropertiesInstance
+  eqInstance                 <- genEqInstance
+  showInstance               <- genShowInstance
   toJSONInstance             <- genToJSONInstance
 
   pure $
     [ recordDeclaration
     , resourcePropertiesInstance
+    , eqInstance
+    , showInstance
     , toJSONInstance
     ]
   where
@@ -346,12 +350,19 @@ genRecordBoot Record{..} = runGen $ do
     genResourcePropertiesInstance :: Generator GHC.HsDecl'
     genResourcePropertiesInstance
       = addImport ResourceProperties
-      $ GHC.instance' (GHC.var "ToResourceProperties" @@ (GHC.var recordName)) []
+      $ mkRecordInstance (GHC.var "ToResourceProperties")
 
     genToJSONInstance :: Generator GHC.HsDecl'
-    genToJSONInstance
-      = addImport JSON
-      $ GHC.instance' (GHC.var "JSON.ToJSON" @@ (GHC.var recordName)) []
+    genToJSONInstance = addImport JSON $ mkRecordInstance (GHC.var "JSON.ToJSON")
+
+    genEqInstance :: Generator GHC.HsDecl'
+    genEqInstance = addImport Prelude $ mkRecordInstance (GHC.var "Prelude.Eq")
+
+    genShowInstance :: Generator GHC.HsDecl'
+    genShowInstance = addImport Prelude $ mkRecordInstance (GHC.var "Prelude.Show")
+
+    mkRecordInstance :: GHC.HsType' -> GHC.HsDecl'
+    mkRecordInstance hsType = GHC.instance' (hsType @@ (GHC.var recordName)) []
 
     recordName :: IsString a => a
     recordName = fromString $ Text.unpack name

services/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer.hs

@@ -13,6 +13,7 @@ data Analyzer
               archiveRules :: (Prelude.Maybe [ArchiveRuleProperty]),
               tags :: (Prelude.Maybe [Tag]),
               type' :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkAnalyzer :: Value Prelude.Text -> Analyzer
 mkAnalyzer type'
   = Analyzer

services/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/ArchiveRuleProperty.hs

@@ -10,6 +10,7 @@ import Stratosphere.Value
 data ArchiveRuleProperty
   = ArchiveRuleProperty {filter :: [FilterProperty],
                          ruleName :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkArchiveRuleProperty ::
   [FilterProperty] -> Value Prelude.Text -> ArchiveRuleProperty
 mkArchiveRuleProperty filter ruleName

services/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/ArchiveRuleProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data ArchiveRuleProperty :: Prelude.Type
 instance ToResourceProperties ArchiveRuleProperty
+instance Prelude.Eq ArchiveRuleProperty
+instance Prelude.Show ArchiveRuleProperty
 instance JSON.ToJSON ArchiveRuleProperty

services/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/FilterProperty.hs

@@ -12,6 +12,7 @@ data FilterProperty
                     exists :: (Prelude.Maybe (Value Prelude.Bool)),
                     neq :: (Prelude.Maybe (ValueList Prelude.Text)),
                     property :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkFilterProperty :: Value Prelude.Text -> FilterProperty
 mkFilterProperty property
   = FilterProperty

services/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/FilterProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data FilterProperty :: Prelude.Type
 instance ToResourceProperties FilterProperty
+instance Prelude.Eq FilterProperty
+instance Prelude.Show FilterProperty
 instance JSON.ToJSON FilterProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate.hs

@@ -16,6 +16,7 @@ data Certificate
                  templateArn :: (Prelude.Maybe (Value Prelude.Text)),
                  validity :: ValidityProperty,
                  validityNotBefore :: (Prelude.Maybe ValidityProperty)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkCertificate ::
   Value Prelude.Text
   -> Value Prelude.Text

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ApiPassthroughProperty.hs

@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties
 data ApiPassthroughProperty
   = ApiPassthroughProperty {extensions :: (Prelude.Maybe ExtensionsProperty),
                             subject :: (Prelude.Maybe SubjectProperty)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkApiPassthroughProperty :: ApiPassthroughProperty
 mkApiPassthroughProperty
   = ApiPassthroughProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ApiPassthroughProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data ApiPassthroughProperty :: Prelude.Type
 instance ToResourceProperties ApiPassthroughProperty
+instance Prelude.Eq ApiPassthroughProperty
+instance Prelude.Show ApiPassthroughProperty
 instance JSON.ToJSON ApiPassthroughProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/CustomAttributeProperty.hs

@@ -9,6 +9,7 @@ import Stratosphere.Value
 data CustomAttributeProperty
   = CustomAttributeProperty {objectIdentifier :: (Value Prelude.Text),
                              value :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkCustomAttributeProperty ::
   Value Prelude.Text -> Value Prelude.Text -> CustomAttributeProperty
 mkCustomAttributeProperty objectIdentifier value

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/CustomAttributeProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data CustomAttributeProperty :: Prelude.Type
 instance ToResourceProperties CustomAttributeProperty
+instance Prelude.Eq CustomAttributeProperty
+instance Prelude.Show CustomAttributeProperty
 instance JSON.ToJSON CustomAttributeProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/CustomExtensionProperty.hs

@@ -10,6 +10,7 @@ data CustomExtensionProperty
   = CustomExtensionProperty {critical :: (Prelude.Maybe (Value Prelude.Bool)),
                              objectIdentifier :: (Value Prelude.Text),
                              value :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkCustomExtensionProperty ::
   Value Prelude.Text -> Value Prelude.Text -> CustomExtensionProperty
 mkCustomExtensionProperty objectIdentifier value

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/CustomExtensionProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data CustomExtensionProperty :: Prelude.Type
 instance ToResourceProperties CustomExtensionProperty
+instance Prelude.Eq CustomExtensionProperty
+instance Prelude.Show CustomExtensionProperty
 instance JSON.ToJSON CustomExtensionProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/EdiPartyNameProperty.hs

@@ -9,6 +9,7 @@ import Stratosphere.Value
 data EdiPartyNameProperty
   = EdiPartyNameProperty {nameAssigner :: (Value Prelude.Text),
                           partyName :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkEdiPartyNameProperty ::
   Value Prelude.Text -> Value Prelude.Text -> EdiPartyNameProperty
 mkEdiPartyNameProperty nameAssigner partyName

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/EdiPartyNameProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data EdiPartyNameProperty :: Prelude.Type
 instance ToResourceProperties EdiPartyNameProperty
+instance Prelude.Eq EdiPartyNameProperty
+instance Prelude.Show EdiPartyNameProperty
 instance JSON.ToJSON EdiPartyNameProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ExtendedKeyUsageProperty.hs

@@ -9,6 +9,7 @@ import Stratosphere.Value
 data ExtendedKeyUsageProperty
   = ExtendedKeyUsageProperty {extendedKeyUsageObjectIdentifier :: (Prelude.Maybe (Value Prelude.Text)),
                               extendedKeyUsageType :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkExtendedKeyUsageProperty :: ExtendedKeyUsageProperty
 mkExtendedKeyUsageProperty
   = ExtendedKeyUsageProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ExtendedKeyUsageProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data ExtendedKeyUsageProperty :: Prelude.Type
 instance ToResourceProperties ExtendedKeyUsageProperty
+instance Prelude.Eq ExtendedKeyUsageProperty
+instance Prelude.Show ExtendedKeyUsageProperty
 instance JSON.ToJSON ExtendedKeyUsageProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ExtensionsProperty.hs

@@ -16,6 +16,7 @@ data ExtensionsProperty
                         extendedKeyUsage :: (Prelude.Maybe [ExtendedKeyUsageProperty]),
                         keyUsage :: (Prelude.Maybe KeyUsageProperty),
                         subjectAlternativeNames :: (Prelude.Maybe [GeneralNameProperty])}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkExtensionsProperty :: ExtensionsProperty
 mkExtensionsProperty
   = ExtensionsProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ExtensionsProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data ExtensionsProperty :: Prelude.Type
 instance ToResourceProperties ExtensionsProperty
+instance Prelude.Eq ExtensionsProperty
+instance Prelude.Show ExtensionsProperty
 instance JSON.ToJSON ExtensionsProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/GeneralNameProperty.hs

@@ -18,6 +18,7 @@ data GeneralNameProperty
                          registeredId :: (Prelude.Maybe (Value Prelude.Text)),
                          rfc822Name :: (Prelude.Maybe (Value Prelude.Text)),
                          uniformResourceIdentifier :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkGeneralNameProperty :: GeneralNameProperty
 mkGeneralNameProperty
   = GeneralNameProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/GeneralNameProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data GeneralNameProperty :: Prelude.Type
 instance ToResourceProperties GeneralNameProperty
+instance Prelude.Eq GeneralNameProperty
+instance Prelude.Show GeneralNameProperty
 instance JSON.ToJSON GeneralNameProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/KeyUsageProperty.hs

@@ -16,6 +16,7 @@ data KeyUsageProperty
                       keyCertSign :: (Prelude.Maybe (Value Prelude.Bool)),
                       keyEncipherment :: (Prelude.Maybe (Value Prelude.Bool)),
                       nonRepudiation :: (Prelude.Maybe (Value Prelude.Bool))}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkKeyUsageProperty :: KeyUsageProperty
 mkKeyUsageProperty
   = KeyUsageProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/KeyUsageProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data KeyUsageProperty :: Prelude.Type
 instance ToResourceProperties KeyUsageProperty
+instance Prelude.Eq KeyUsageProperty
+instance Prelude.Show KeyUsageProperty
 instance JSON.ToJSON KeyUsageProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/OtherNameProperty.hs

@@ -9,6 +9,7 @@ import Stratosphere.Value
 data OtherNameProperty
   = OtherNameProperty {typeId :: (Value Prelude.Text),
                        value :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkOtherNameProperty ::
   Value Prelude.Text -> Value Prelude.Text -> OtherNameProperty
 mkOtherNameProperty typeId value

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/OtherNameProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data OtherNameProperty :: Prelude.Type
 instance ToResourceProperties OtherNameProperty
+instance Prelude.Eq OtherNameProperty
+instance Prelude.Show OtherNameProperty
 instance JSON.ToJSON OtherNameProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/PolicyInformationProperty.hs

@@ -11,6 +11,7 @@ import Stratosphere.Value
 data PolicyInformationProperty
   = PolicyInformationProperty {certPolicyId :: (Value Prelude.Text),
                                policyQualifiers :: (Prelude.Maybe [PolicyQualifierInfoProperty])}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkPolicyInformationProperty ::
   Value Prelude.Text -> PolicyInformationProperty
 mkPolicyInformationProperty certPolicyId

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/PolicyInformationProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data PolicyInformationProperty :: Prelude.Type
 instance ToResourceProperties PolicyInformationProperty
+instance Prelude.Eq PolicyInformationProperty
+instance Prelude.Show PolicyInformationProperty
 instance JSON.ToJSON PolicyInformationProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/PolicyQualifierInfoProperty.hs

@@ -11,6 +11,7 @@ import Stratosphere.Value
 data PolicyQualifierInfoProperty
   = PolicyQualifierInfoProperty {policyQualifierId :: (Value Prelude.Text),
                                  qualifier :: QualifierProperty}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkPolicyQualifierInfoProperty ::
   Value Prelude.Text
   -> QualifierProperty -> PolicyQualifierInfoProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/PolicyQualifierInfoProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data PolicyQualifierInfoProperty :: Prelude.Type
 instance ToResourceProperties PolicyQualifierInfoProperty
+instance Prelude.Eq PolicyQualifierInfoProperty
+instance Prelude.Show PolicyQualifierInfoProperty
 instance JSON.ToJSON PolicyQualifierInfoProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/QualifierProperty.hs

@@ -8,6 +8,7 @@ import Stratosphere.ResourceProperties
 import Stratosphere.Value
 data QualifierProperty
   = QualifierProperty {cpsUri :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkQualifierProperty :: Value Prelude.Text -> QualifierProperty
 mkQualifierProperty cpsUri = QualifierProperty {cpsUri = cpsUri}
 instance ToResourceProperties QualifierProperty where

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/QualifierProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data QualifierProperty :: Prelude.Type
 instance ToResourceProperties QualifierProperty
+instance Prelude.Eq QualifierProperty
+instance Prelude.Show QualifierProperty
 instance JSON.ToJSON QualifierProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/SubjectProperty.hs

@@ -23,6 +23,7 @@ data SubjectProperty
                      state :: (Prelude.Maybe (Value Prelude.Text)),
                      surname :: (Prelude.Maybe (Value Prelude.Text)),
                      title :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkSubjectProperty :: SubjectProperty
 mkSubjectProperty
   = SubjectProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/SubjectProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data SubjectProperty :: Prelude.Type
 instance ToResourceProperties SubjectProperty
+instance Prelude.Eq SubjectProperty
+instance Prelude.Show SubjectProperty
 instance JSON.ToJSON SubjectProperty

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ValidityProperty.hs

@@ -9,6 +9,7 @@ import Stratosphere.Value
 data ValidityProperty
   = ValidityProperty {type' :: (Value Prelude.Text),
                       value :: (Value Prelude.Double)}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkValidityProperty ::
   Value Prelude.Text -> Value Prelude.Double -> ValidityProperty
 mkValidityProperty type' value

services/acmpca/gen/Stratosphere/ACMPCA/Certificate/ValidityProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data ValidityProperty :: Prelude.Type
 instance ToResourceProperties ValidityProperty
+instance Prelude.Eq ValidityProperty
+instance Prelude.Show ValidityProperty
 instance JSON.ToJSON ValidityProperty

services/acmpca/gen/Stratosphere/ACMPCA/CertificateAuthority.hs

@@ -20,6 +20,7 @@ data CertificateAuthority
                           tags :: (Prelude.Maybe [Tag]),
                           type' :: (Value Prelude.Text),
                           usageMode :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkCertificateAuthority ::
   Value Prelude.Text
   -> Value Prelude.Text

services/acmpca/gen/Stratosphere/ACMPCA/CertificateAuthority/AccessDescriptionProperty.hs

@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties
 data AccessDescriptionProperty
   = AccessDescriptionProperty {accessLocation :: GeneralNameProperty,
                                accessMethod :: AccessMethodProperty}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkAccessDescriptionProperty ::
   GeneralNameProperty
   -> AccessMethodProperty -> AccessDescriptionProperty

services/acmpca/gen/Stratosphere/ACMPCA/CertificateAuthority/AccessDescriptionProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data AccessDescriptionProperty :: Prelude.Type
 instance ToResourceProperties AccessDescriptionProperty
+instance Prelude.Eq AccessDescriptionProperty
+instance Prelude.Show AccessDescriptionProperty
 instance JSON.ToJSON AccessDescriptionProperty

services/acmpca/gen/Stratosphere/ACMPCA/CertificateAuthority/AccessMethodProperty.hs

@@ -9,6 +9,7 @@ import Stratosphere.Value
 data AccessMethodProperty
   = AccessMethodProperty {accessMethodType :: (Prelude.Maybe (Value Prelude.Text)),
                           customObjectIdentifier :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkAccessMethodProperty :: AccessMethodProperty
 mkAccessMethodProperty
   = AccessMethodProperty

services/acmpca/gen/Stratosphere/ACMPCA/CertificateAuthority/AccessMethodProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data AccessMethodProperty :: Prelude.Type
 instance ToResourceProperties AccessMethodProperty
+instance Prelude.Eq AccessMethodProperty
+instance Prelude.Show AccessMethodProperty
 instance JSON.ToJSON AccessMethodProperty

services/acmpca/gen/Stratosphere/ACMPCA/CertificateAuthority/CrlConfigurationProperty.hs

@@ -12,6 +12,7 @@ data CrlConfigurationProperty
                               expirationInDays :: (Prelude.Maybe (Value Prelude.Integer)),
                               s3BucketName :: (Prelude.Maybe (Value Prelude.Text)),
                               s3ObjectAcl :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
 mkCrlConfigurationProperty :: CrlConfigurationProperty
 mkCrlConfigurationProperty
   = CrlConfigurationProperty

services/acmpca/gen/Stratosphere/ACMPCA/CertificateAuthority/CrlConfigurationProperty.hs-boot

@@ -4,4 +4,6 @@ import qualified Stratosphere.Prelude as Prelude
 import Stratosphere.ResourceProperties
 data CrlConfigurationProperty :: Prelude.Type
 instance ToResourceProperties CrlConfigurationProperty
+instance Prelude.Eq CrlConfigurationProperty
+instance Prelude.Show CrlConfigurationProperty
 instance JSON.ToJSON CrlConfigurationProperty