module Stratosphere.IoTFleetWise.DecoderManifest.ObdInterfaceProperty (
        ObdInterfaceProperty(..), mkObdInterfaceProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ObdInterfaceProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html>
    ObdInterfaceProperty {ObdInterfaceProperty -> ()
haddock_workaround_ :: (),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html#cfn-iotfleetwise-decodermanifest-obdinterface-dtcrequestintervalseconds>
                          ObdInterfaceProperty -> Maybe (Value Text)
dtcRequestIntervalSeconds :: (Prelude.Maybe (Value Prelude.Text)),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html#cfn-iotfleetwise-decodermanifest-obdinterface-hastransmissionecu>
                          ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: (Prelude.Maybe (Value Prelude.Text)),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html#cfn-iotfleetwise-decodermanifest-obdinterface-name>
                          ObdInterfaceProperty -> Value Text
name :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html#cfn-iotfleetwise-decodermanifest-obdinterface-obdstandard>
                          ObdInterfaceProperty -> Maybe (Value Text)
obdStandard :: (Prelude.Maybe (Value Prelude.Text)),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html#cfn-iotfleetwise-decodermanifest-obdinterface-pidrequestintervalseconds>
                          ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: (Prelude.Maybe (Value Prelude.Text)),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html#cfn-iotfleetwise-decodermanifest-obdinterface-requestmessageid>
                          ObdInterfaceProperty -> Value Text
requestMessageId :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotfleetwise-decodermanifest-obdinterface.html#cfn-iotfleetwise-decodermanifest-obdinterface-useextendedids>
                          ObdInterfaceProperty -> Maybe (Value Text)
useExtendedIds :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (ObdInterfaceProperty -> ObdInterfaceProperty -> Bool
(ObdInterfaceProperty -> ObdInterfaceProperty -> Bool)
-> (ObdInterfaceProperty -> ObdInterfaceProperty -> Bool)
-> Eq ObdInterfaceProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ObdInterfaceProperty -> ObdInterfaceProperty -> Bool
== :: ObdInterfaceProperty -> ObdInterfaceProperty -> Bool
$c/= :: ObdInterfaceProperty -> ObdInterfaceProperty -> Bool
/= :: ObdInterfaceProperty -> ObdInterfaceProperty -> Bool
Prelude.Eq, Int -> ObdInterfaceProperty -> ShowS
[ObdInterfaceProperty] -> ShowS
ObdInterfaceProperty -> String
(Int -> ObdInterfaceProperty -> ShowS)
-> (ObdInterfaceProperty -> String)
-> ([ObdInterfaceProperty] -> ShowS)
-> Show ObdInterfaceProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ObdInterfaceProperty -> ShowS
showsPrec :: Int -> ObdInterfaceProperty -> ShowS
$cshow :: ObdInterfaceProperty -> String
show :: ObdInterfaceProperty -> String
$cshowList :: [ObdInterfaceProperty] -> ShowS
showList :: [ObdInterfaceProperty] -> ShowS
Prelude.Show)
mkObdInterfaceProperty ::
  Value Prelude.Text -> Value Prelude.Text -> ObdInterfaceProperty
mkObdInterfaceProperty :: Value Text -> Value Text -> ObdInterfaceProperty
mkObdInterfaceProperty Value Text
name Value Text
requestMessageId
  = ObdInterfaceProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), name :: Value Text
name = Value Text
name,
       requestMessageId :: Value Text
requestMessageId = Value Text
requestMessageId,
       dtcRequestIntervalSeconds :: Maybe (Value Text)
dtcRequestIntervalSeconds = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       hasTransmissionEcu :: Maybe (Value Text)
hasTransmissionEcu = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       obdStandard :: Maybe (Value Text)
obdStandard = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       pidRequestIntervalSeconds :: Maybe (Value Text)
pidRequestIntervalSeconds = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       useExtendedIds :: Maybe (Value Text)
useExtendedIds = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ObdInterfaceProperty where
  toResourceProperties :: ObdInterfaceProperty -> ResourceProperties
toResourceProperties ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::IoTFleetWise::DecoderManifest.ObdInterface",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"Name" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
name, Key
"RequestMessageId" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
requestMessageId]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DtcRequestIntervalSeconds"
                                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
dtcRequestIntervalSeconds,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HasTransmissionEcu" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
hasTransmissionEcu,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ObdStandard" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
obdStandard,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PidRequestIntervalSeconds"
                                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
pidRequestIntervalSeconds,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UseExtendedIds" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
useExtendedIds]))}
instance JSON.ToJSON ObdInterfaceProperty where
  toJSON :: ObdInterfaceProperty -> Value
toJSON ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"Name" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
name, Key
"RequestMessageId" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
requestMessageId]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DtcRequestIntervalSeconds"
                    (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
dtcRequestIntervalSeconds,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HasTransmissionEcu" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
hasTransmissionEcu,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ObdStandard" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
obdStandard,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PidRequestIntervalSeconds"
                    (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
pidRequestIntervalSeconds,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UseExtendedIds" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
useExtendedIds])))
instance Property "DtcRequestIntervalSeconds" ObdInterfaceProperty where
  type PropertyType "DtcRequestIntervalSeconds" ObdInterfaceProperty = Value Prelude.Text
  set :: PropertyType "DtcRequestIntervalSeconds" ObdInterfaceProperty
-> ObdInterfaceProperty -> ObdInterfaceProperty
set PropertyType "DtcRequestIntervalSeconds" ObdInterfaceProperty
newValue ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ObdInterfaceProperty
        {dtcRequestIntervalSeconds :: Maybe (Value Text)
dtcRequestIntervalSeconds = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DtcRequestIntervalSeconds" ObdInterfaceProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
haddock_workaround_ :: ()
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
instance Property "HasTransmissionEcu" ObdInterfaceProperty where
  type PropertyType "HasTransmissionEcu" ObdInterfaceProperty = Value Prelude.Text
  set :: PropertyType "HasTransmissionEcu" ObdInterfaceProperty
-> ObdInterfaceProperty -> ObdInterfaceProperty
set PropertyType "HasTransmissionEcu" ObdInterfaceProperty
newValue ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ObdInterfaceProperty
        {hasTransmissionEcu :: Maybe (Value Text)
hasTransmissionEcu = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HasTransmissionEcu" ObdInterfaceProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
instance Property "Name" ObdInterfaceProperty where
  type PropertyType "Name" ObdInterfaceProperty = Value Prelude.Text
  set :: PropertyType "Name" ObdInterfaceProperty
-> ObdInterfaceProperty -> ObdInterfaceProperty
set PropertyType "Name" ObdInterfaceProperty
newValue ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ObdInterfaceProperty {name :: Value Text
name = PropertyType "Name" ObdInterfaceProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
instance Property "ObdStandard" ObdInterfaceProperty where
  type PropertyType "ObdStandard" ObdInterfaceProperty = Value Prelude.Text
  set :: PropertyType "ObdStandard" ObdInterfaceProperty
-> ObdInterfaceProperty -> ObdInterfaceProperty
set PropertyType "ObdStandard" ObdInterfaceProperty
newValue ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ObdInterfaceProperty {obdStandard :: Maybe (Value Text)
obdStandard = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ObdStandard" ObdInterfaceProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
instance Property "PidRequestIntervalSeconds" ObdInterfaceProperty where
  type PropertyType "PidRequestIntervalSeconds" ObdInterfaceProperty = Value Prelude.Text
  set :: PropertyType "PidRequestIntervalSeconds" ObdInterfaceProperty
-> ObdInterfaceProperty -> ObdInterfaceProperty
set PropertyType "PidRequestIntervalSeconds" ObdInterfaceProperty
newValue ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ObdInterfaceProperty
        {pidRequestIntervalSeconds :: Maybe (Value Text)
pidRequestIntervalSeconds = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PidRequestIntervalSeconds" ObdInterfaceProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
instance Property "RequestMessageId" ObdInterfaceProperty where
  type PropertyType "RequestMessageId" ObdInterfaceProperty = Value Prelude.Text
  set :: PropertyType "RequestMessageId" ObdInterfaceProperty
-> ObdInterfaceProperty -> ObdInterfaceProperty
set PropertyType "RequestMessageId" ObdInterfaceProperty
newValue ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ObdInterfaceProperty {requestMessageId :: Value Text
requestMessageId = PropertyType "RequestMessageId" ObdInterfaceProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
useExtendedIds :: Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
useExtendedIds :: Maybe (Value Text)
..}
instance Property "UseExtendedIds" ObdInterfaceProperty where
  type PropertyType "UseExtendedIds" ObdInterfaceProperty = Value Prelude.Text
  set :: PropertyType "UseExtendedIds" ObdInterfaceProperty
-> ObdInterfaceProperty -> ObdInterfaceProperty
set PropertyType "UseExtendedIds" ObdInterfaceProperty
newValue ObdInterfaceProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ObdInterfaceProperty -> ()
dtcRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
hasTransmissionEcu :: ObdInterfaceProperty -> Maybe (Value Text)
name :: ObdInterfaceProperty -> Value Text
obdStandard :: ObdInterfaceProperty -> Maybe (Value Text)
pidRequestIntervalSeconds :: ObdInterfaceProperty -> Maybe (Value Text)
requestMessageId :: ObdInterfaceProperty -> Value Text
useExtendedIds :: ObdInterfaceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
useExtendedIds :: Maybe (Value Text)
..}
    = ObdInterfaceProperty {useExtendedIds :: Maybe (Value Text)
useExtendedIds = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "UseExtendedIds" ObdInterfaceProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
haddock_workaround_ :: ()
dtcRequestIntervalSeconds :: Maybe (Value Text)
hasTransmissionEcu :: Maybe (Value Text)
name :: Value Text
obdStandard :: Maybe (Value Text)
pidRequestIntervalSeconds :: Maybe (Value Text)
requestMessageId :: Value Text
..}