module Stratosphere.IoTWireless.WirelessDevice.LoRaWANDeviceProperty (
module Exports, LoRaWANDeviceProperty(..), mkLoRaWANDeviceProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.IoTWireless.WirelessDevice.AbpV10xProperty as Exports
import {-# SOURCE #-} Stratosphere.IoTWireless.WirelessDevice.AbpV11Property as Exports
import {-# SOURCE #-} Stratosphere.IoTWireless.WirelessDevice.FPortsProperty as Exports
import {-# SOURCE #-} Stratosphere.IoTWireless.WirelessDevice.OtaaV10xProperty as Exports
import {-# SOURCE #-} Stratosphere.IoTWireless.WirelessDevice.OtaaV11Property as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LoRaWANDeviceProperty
=
LoRaWANDeviceProperty {LoRaWANDeviceProperty -> ()
haddock_workaround_ :: (),
LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV10x :: (Prelude.Maybe AbpV10xProperty),
LoRaWANDeviceProperty -> Maybe AbpV11Property
abpV11 :: (Prelude.Maybe AbpV11Property),
LoRaWANDeviceProperty -> Maybe (Value Text)
devEui :: (Prelude.Maybe (Value Prelude.Text)),
LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: (Prelude.Maybe (Value Prelude.Text)),
LoRaWANDeviceProperty -> Maybe FPortsProperty
fPorts :: (Prelude.Maybe FPortsProperty),
LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV10x :: (Prelude.Maybe OtaaV10xProperty),
LoRaWANDeviceProperty -> Maybe OtaaV11Property
otaaV11 :: (Prelude.Maybe OtaaV11Property),
LoRaWANDeviceProperty -> Maybe (Value Text)
serviceProfileId :: (Prelude.Maybe (Value Prelude.Text))}
deriving stock (LoRaWANDeviceProperty -> LoRaWANDeviceProperty -> Bool
(LoRaWANDeviceProperty -> LoRaWANDeviceProperty -> Bool)
-> (LoRaWANDeviceProperty -> LoRaWANDeviceProperty -> Bool)
-> Eq LoRaWANDeviceProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LoRaWANDeviceProperty -> LoRaWANDeviceProperty -> Bool
== :: LoRaWANDeviceProperty -> LoRaWANDeviceProperty -> Bool
$c/= :: LoRaWANDeviceProperty -> LoRaWANDeviceProperty -> Bool
/= :: LoRaWANDeviceProperty -> LoRaWANDeviceProperty -> Bool
Prelude.Eq, Int -> LoRaWANDeviceProperty -> ShowS
[LoRaWANDeviceProperty] -> ShowS
LoRaWANDeviceProperty -> String
(Int -> LoRaWANDeviceProperty -> ShowS)
-> (LoRaWANDeviceProperty -> String)
-> ([LoRaWANDeviceProperty] -> ShowS)
-> Show LoRaWANDeviceProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LoRaWANDeviceProperty -> ShowS
showsPrec :: Int -> LoRaWANDeviceProperty -> ShowS
$cshow :: LoRaWANDeviceProperty -> String
show :: LoRaWANDeviceProperty -> String
$cshowList :: [LoRaWANDeviceProperty] -> ShowS
showList :: [LoRaWANDeviceProperty] -> ShowS
Prelude.Show)
mkLoRaWANDeviceProperty :: LoRaWANDeviceProperty
mkLoRaWANDeviceProperty :: LoRaWANDeviceProperty
mkLoRaWANDeviceProperty
= LoRaWANDeviceProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), abpV10x :: Maybe AbpV10xProperty
abpV10x = Maybe AbpV10xProperty
forall a. Maybe a
Prelude.Nothing,
abpV11 :: Maybe AbpV11Property
abpV11 = Maybe AbpV11Property
forall a. Maybe a
Prelude.Nothing, devEui :: Maybe (Value Text)
devEui = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
deviceProfileId :: Maybe (Value Text)
deviceProfileId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, fPorts :: Maybe FPortsProperty
fPorts = Maybe FPortsProperty
forall a. Maybe a
Prelude.Nothing,
otaaV10x :: Maybe OtaaV10xProperty
otaaV10x = Maybe OtaaV10xProperty
forall a. Maybe a
Prelude.Nothing, otaaV11 :: Maybe OtaaV11Property
otaaV11 = Maybe OtaaV11Property
forall a. Maybe a
Prelude.Nothing,
serviceProfileId :: Maybe (Value Text)
serviceProfileId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties LoRaWANDeviceProperty where
toResourceProperties :: LoRaWANDeviceProperty -> ResourceProperties
toResourceProperties LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::IoTWireless::WirelessDevice.LoRaWANDevice",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> AbpV10xProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AbpV10x" (AbpV10xProperty -> (Key, Value))
-> Maybe AbpV10xProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AbpV10xProperty
abpV10x,
Key -> AbpV11Property -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AbpV11" (AbpV11Property -> (Key, Value))
-> Maybe AbpV11Property -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AbpV11Property
abpV11,
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
"DevEui" (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)
devEui,
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
"DeviceProfileId" (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)
deviceProfileId,
Key -> FPortsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FPorts" (FPortsProperty -> (Key, Value))
-> Maybe FPortsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FPortsProperty
fPorts,
Key -> OtaaV10xProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OtaaV10x" (OtaaV10xProperty -> (Key, Value))
-> Maybe OtaaV10xProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OtaaV10xProperty
otaaV10x,
Key -> OtaaV11Property -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OtaaV11" (OtaaV11Property -> (Key, Value))
-> Maybe OtaaV11Property -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OtaaV11Property
otaaV11,
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
"ServiceProfileId" (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)
serviceProfileId])}
instance JSON.ToJSON LoRaWANDeviceProperty where
toJSON :: LoRaWANDeviceProperty -> Value
toJSON LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> AbpV10xProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AbpV10x" (AbpV10xProperty -> (Key, Value))
-> Maybe AbpV10xProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AbpV10xProperty
abpV10x,
Key -> AbpV11Property -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AbpV11" (AbpV11Property -> (Key, Value))
-> Maybe AbpV11Property -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AbpV11Property
abpV11,
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
"DevEui" (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)
devEui,
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
"DeviceProfileId" (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)
deviceProfileId,
Key -> FPortsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FPorts" (FPortsProperty -> (Key, Value))
-> Maybe FPortsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FPortsProperty
fPorts,
Key -> OtaaV10xProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OtaaV10x" (OtaaV10xProperty -> (Key, Value))
-> Maybe OtaaV10xProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OtaaV10xProperty
otaaV10x,
Key -> OtaaV11Property -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OtaaV11" (OtaaV11Property -> (Key, Value))
-> Maybe OtaaV11Property -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OtaaV11Property
otaaV11,
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
"ServiceProfileId" (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)
serviceProfileId]))
instance Property "AbpV10x" LoRaWANDeviceProperty where
type PropertyType "AbpV10x" LoRaWANDeviceProperty = AbpV10xProperty
set :: PropertyType "AbpV10x" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "AbpV10x" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty {abpV10x :: Maybe AbpV10xProperty
abpV10x = AbpV10xProperty -> Maybe AbpV10xProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AbpV10x" LoRaWANDeviceProperty
AbpV10xProperty
newValue, Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV11Property
()
haddock_workaround_ :: ()
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
instance Property "AbpV11" LoRaWANDeviceProperty where
type PropertyType "AbpV11" LoRaWANDeviceProperty = AbpV11Property
set :: PropertyType "AbpV11" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "AbpV11" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty {abpV11 :: Maybe AbpV11Property
abpV11 = AbpV11Property -> Maybe AbpV11Property
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AbpV11" LoRaWANDeviceProperty
AbpV11Property
newValue, Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
()
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
instance Property "DevEui" LoRaWANDeviceProperty where
type PropertyType "DevEui" LoRaWANDeviceProperty = Value Prelude.Text
set :: PropertyType "DevEui" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "DevEui" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty {devEui :: Maybe (Value Text)
devEui = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DevEui" LoRaWANDeviceProperty
Value Text
newValue, Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
instance Property "DeviceProfileId" LoRaWANDeviceProperty where
type PropertyType "DeviceProfileId" LoRaWANDeviceProperty = Value Prelude.Text
set :: PropertyType "DeviceProfileId" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "DeviceProfileId" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty
{deviceProfileId :: Maybe (Value Text)
deviceProfileId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DeviceProfileId" LoRaWANDeviceProperty
Value Text
newValue, Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
instance Property "FPorts" LoRaWANDeviceProperty where
type PropertyType "FPorts" LoRaWANDeviceProperty = FPortsProperty
set :: PropertyType "FPorts" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "FPorts" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty {fPorts :: Maybe FPortsProperty
fPorts = FPortsProperty -> Maybe FPortsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FPorts" LoRaWANDeviceProperty
FPortsProperty
newValue, Maybe (Value Text)
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
instance Property "OtaaV10x" LoRaWANDeviceProperty where
type PropertyType "OtaaV10x" LoRaWANDeviceProperty = OtaaV10xProperty
set :: PropertyType "OtaaV10x" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "OtaaV10x" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty {otaaV10x :: Maybe OtaaV10xProperty
otaaV10x = OtaaV10xProperty -> Maybe OtaaV10xProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "OtaaV10x" LoRaWANDeviceProperty
OtaaV10xProperty
newValue, Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
instance Property "OtaaV11" LoRaWANDeviceProperty where
type PropertyType "OtaaV11" LoRaWANDeviceProperty = OtaaV11Property
set :: PropertyType "OtaaV11" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "OtaaV11" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty {otaaV11 :: Maybe OtaaV11Property
otaaV11 = OtaaV11Property -> Maybe OtaaV11Property
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "OtaaV11" LoRaWANDeviceProperty
OtaaV11Property
newValue, Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
serviceProfileId :: Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
serviceProfileId :: Maybe (Value Text)
..}
instance Property "ServiceProfileId" LoRaWANDeviceProperty where
type PropertyType "ServiceProfileId" LoRaWANDeviceProperty = Value Prelude.Text
set :: PropertyType "ServiceProfileId" LoRaWANDeviceProperty
-> LoRaWANDeviceProperty -> LoRaWANDeviceProperty
set PropertyType "ServiceProfileId" LoRaWANDeviceProperty
newValue LoRaWANDeviceProperty {Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: LoRaWANDeviceProperty -> ()
abpV10x :: LoRaWANDeviceProperty -> Maybe AbpV10xProperty
abpV11 :: LoRaWANDeviceProperty -> Maybe AbpV11Property
devEui :: LoRaWANDeviceProperty -> Maybe (Value Text)
deviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
fPorts :: LoRaWANDeviceProperty -> Maybe FPortsProperty
otaaV10x :: LoRaWANDeviceProperty -> Maybe OtaaV10xProperty
otaaV11 :: LoRaWANDeviceProperty -> Maybe OtaaV11Property
serviceProfileId :: LoRaWANDeviceProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
serviceProfileId :: Maybe (Value Text)
..}
= LoRaWANDeviceProperty
{serviceProfileId :: Maybe (Value Text)
serviceProfileId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ServiceProfileId" LoRaWANDeviceProperty
Value Text
newValue, Maybe (Value Text)
Maybe FPortsProperty
Maybe OtaaV10xProperty
Maybe OtaaV11Property
Maybe AbpV10xProperty
Maybe AbpV11Property
()
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
haddock_workaround_ :: ()
abpV10x :: Maybe AbpV10xProperty
abpV11 :: Maybe AbpV11Property
devEui :: Maybe (Value Text)
deviceProfileId :: Maybe (Value Text)
fPorts :: Maybe FPortsProperty
otaaV10x :: Maybe OtaaV10xProperty
otaaV11 :: Maybe OtaaV11Property
..}