module System.Hardware.MercuryApi.Params
(
paramGetBaudRate
, paramSetBaudRate
, paramGetCommandTimeout
, paramSetCommandTimeout
, paramGetDescription
, paramSetDescription
, paramGetExtendedEpc
, paramSetExtendedEpc
, paramGetHostname
, paramSetHostname
, paramGetLicenseKey
, paramSetLicenseKey
, paramGetLicensedFeatures
, paramSetLicensedFeatures
, paramGetMetadataflags
, paramSetMetadataflags
, paramGetPowerMode
, paramSetPowerMode
, paramGetProbeBaudRates
, paramSetProbeBaudRates
, paramGetTransportTimeout
, paramSetTransportTimeout
, paramGetUri
, paramGetAntennaCheckPort
, paramSetAntennaCheckPort
, paramGetAntennaConnectedPortList
, paramGetAntennaPortList
, paramGetAntennaPortSwitchGpos
, paramSetAntennaPortSwitchGpos
, paramGetGen2AccessPassword
, paramSetGen2AccessPassword
, paramGetGen2WriteEarlyExit
, paramSetGen2WriteEarlyExit
, paramGetGen2WriteMode
, paramSetGen2WriteMode
, paramGetGen2WriteReplyTimeout
, paramSetGen2WriteReplyTimeout
, paramGetGpioInputList
, paramSetGpioInputList
, paramGetGpioOutputList
, paramSetGpioOutputList
, paramGetRadioEnablePowerSave
, paramSetRadioEnablePowerSave
, paramGetRadioEnableSJC
, paramSetRadioEnableSJC
, paramGetRadioPowerMax
, paramGetRadioPowerMin
, paramGetRadioReadPower
, paramSetRadioReadPower
, paramGetRadioTemperature
, paramGetRadioWritePower
, paramSetRadioWritePower
, paramGetReadAsyncOffTime
, paramSetReadAsyncOffTime
, paramGetReadAsyncOnTime
, paramSetReadAsyncOnTime
, paramGetReadPlan
, paramSetReadPlan
, paramGetRegionHopTable
, paramSetRegionHopTable
, paramGetRegionHopTime
, paramSetRegionHopTime
, paramGetRegionId
, paramSetRegionId
, paramGetRegionSupportedRegions
, paramGetRegionLbtEnable
, paramSetRegionLbtEnable
, paramGetStatusAntennaEnable
, paramSetStatusAntennaEnable
, paramGetStatusFrequencyEnable
, paramSetStatusFrequencyEnable
, paramGetStatusTemperatureEnable
, paramSetStatusTemperatureEnable
, paramGetTagReadDataEnableReadFilter
, paramSetTagReadDataEnableReadFilter
, paramGetTagReadDataReadFilterTimeout
, paramSetTagReadDataReadFilterTimeout
, paramGetTagReadDataRecordHighestRssi
, paramSetTagReadDataRecordHighestRssi
, paramGetTagReadDataReportRssiInDbm
, paramSetTagReadDataReportRssiInDbm
, paramGetTagReadDataTagopFailures
, paramGetTagReadDataTagopSuccesses
, paramGetTagReadDataUniqueByAntenna
, paramSetTagReadDataUniqueByAntenna
, paramGetTagReadDataUniqueByData
, paramSetTagReadDataUniqueByData
, paramGetTagReadDataUniqueByProtocol
, paramSetTagReadDataUniqueByProtocol
, paramGetTagopAntenna
, paramSetTagopAntenna
, paramGetTagopProtocol
, paramSetTagopProtocol
, paramGetTriggerReadGpi
, paramSetTriggerReadGpi
, paramGetVersionHardware
, paramGetVersionModel
, paramGetVersionProductGroup
, paramGetVersionProductGroupID
, paramGetVersionProductID
, paramGetVersionSerial
, paramSetVersionSerial
, paramGetVersionSoftware
, paramGetVersionSupportedProtocols
, paramGetString
, paramSetString
) where
import Control.Applicative ( (<$>) )
import Data.Int ( Int8, Int16, Int32 )
import Data.Text (Text)
import qualified Data.Text as T ( unpack, pack )
import Data.Word ( Word8, Word16, Word32 )
import System.Hardware.MercuryApi hiding (read)
paramSetBaudRate :: Reader -> Word32 -> IO ()
paramSetBaudRate rdr = paramSet rdr PARAM_BAUDRATE
paramGetBaudRate :: Reader -> IO Word32
paramGetBaudRate rdr = paramGet rdr PARAM_BAUDRATE
paramSetProbeBaudRates :: Reader -> [Word32] -> IO ()
paramSetProbeBaudRates rdr = paramSet rdr PARAM_PROBEBAUDRATES
paramGetProbeBaudRates :: Reader -> IO [Word32]
paramGetProbeBaudRates rdr = paramGet rdr PARAM_PROBEBAUDRATES
paramSetCommandTimeout :: Reader -> Word32 -> IO ()
paramSetCommandTimeout rdr = paramSet rdr PARAM_COMMANDTIMEOUT
paramGetCommandTimeout :: Reader -> IO Word32
paramGetCommandTimeout rdr = paramGet rdr PARAM_COMMANDTIMEOUT
paramSetTransportTimeout :: Reader -> Word32 -> IO ()
paramSetTransportTimeout rdr = paramSet rdr PARAM_TRANSPORTTIMEOUT
paramGetTransportTimeout :: Reader -> IO Word32
paramGetTransportTimeout rdr = paramGet rdr PARAM_TRANSPORTTIMEOUT
paramSetPowerMode :: Reader -> PowerMode -> IO ()
paramSetPowerMode rdr = paramSet rdr PARAM_POWERMODE
paramGetPowerMode :: Reader -> IO PowerMode
paramGetPowerMode rdr = paramGet rdr PARAM_POWERMODE
paramSetAntennaCheckPort :: Reader -> Bool -> IO ()
paramSetAntennaCheckPort rdr = paramSet rdr PARAM_ANTENNA_CHECKPORT
paramGetAntennaCheckPort :: Reader -> IO Bool
paramGetAntennaCheckPort rdr = paramGet rdr PARAM_ANTENNA_CHECKPORT
paramGetAntennaPortList :: Reader -> IO [AntennaPort]
paramGetAntennaPortList rdr = paramGet rdr PARAM_ANTENNA_PORTLIST
paramGetAntennaConnectedPortList :: Reader -> IO [AntennaPort]
paramGetAntennaConnectedPortList rdr = paramGet rdr PARAM_ANTENNA_CONNECTEDPORTLIST
paramSetAntennaPortSwitchGpos :: Reader -> [PinNumber] -> IO ()
paramSetAntennaPortSwitchGpos rdr = paramSet rdr PARAM_ANTENNA_PORTSWITCHGPOS
paramGetAntennaPortSwitchGpos :: Reader -> IO [PinNumber]
paramGetAntennaPortSwitchGpos rdr = paramGet rdr PARAM_ANTENNA_PORTSWITCHGPOS
paramSetGpioInputList :: Reader -> [PinNumber] -> IO ()
paramSetGpioInputList rdr = paramSet rdr PARAM_GPIO_INPUTLIST
paramGetGpioInputList :: Reader -> IO [PinNumber]
paramGetGpioInputList rdr = paramGet rdr PARAM_GPIO_INPUTLIST
paramSetGpioOutputList :: Reader -> [PinNumber] -> IO ()
paramSetGpioOutputList rdr = paramSet rdr PARAM_GPIO_OUTPUTLIST
paramGetGpioOutputList :: Reader -> IO [PinNumber]
paramGetGpioOutputList rdr = paramGet rdr PARAM_GPIO_OUTPUTLIST
paramSetGen2AccessPassword :: Reader -> GEN2_Password -> IO ()
paramSetGen2AccessPassword rdr = paramSet rdr PARAM_GEN2_ACCESSPASSWORD
paramGetGen2AccessPassword :: Reader -> IO GEN2_Password
paramGetGen2AccessPassword rdr = paramGet rdr PARAM_GEN2_ACCESSPASSWORD
paramSetGen2WriteMode :: Reader -> GEN2_WriteMode -> IO ()
paramSetGen2WriteMode rdr = paramSet rdr PARAM_GEN2_WRITEMODE
paramGetGen2WriteMode :: Reader -> IO GEN2_WriteMode
paramGetGen2WriteMode rdr = paramGet rdr PARAM_GEN2_WRITEMODE
paramSetReadAsyncOffTime :: Reader -> Word32 -> IO ()
paramSetReadAsyncOffTime rdr = paramSet rdr PARAM_READ_ASYNCOFFTIME
paramGetReadAsyncOffTime :: Reader -> IO Word32
paramGetReadAsyncOffTime rdr = paramGet rdr PARAM_READ_ASYNCOFFTIME
paramSetReadAsyncOnTime :: Reader -> Word32 -> IO ()
paramSetReadAsyncOnTime rdr = paramSet rdr PARAM_READ_ASYNCONTIME
paramGetReadAsyncOnTime :: Reader -> IO Word32
paramGetReadAsyncOnTime rdr = paramGet rdr PARAM_READ_ASYNCONTIME
paramSetReadPlan :: Reader -> ReadPlan -> IO ()
paramSetReadPlan rdr = paramSet rdr PARAM_READ_PLAN
paramGetReadPlan :: Reader -> IO ReadPlan
paramGetReadPlan rdr = paramGet rdr PARAM_READ_PLAN
paramSetRadioEnablePowerSave :: Reader -> Bool -> IO ()
paramSetRadioEnablePowerSave rdr = paramSet rdr PARAM_RADIO_ENABLEPOWERSAVE
paramGetRadioEnablePowerSave :: Reader -> IO Bool
paramGetRadioEnablePowerSave rdr = paramGet rdr PARAM_RADIO_ENABLEPOWERSAVE
paramGetRadioPowerMax :: Reader -> IO Int16
paramGetRadioPowerMax rdr = paramGet rdr PARAM_RADIO_POWERMAX
paramGetRadioPowerMin :: Reader -> IO Int16
paramGetRadioPowerMin rdr = paramGet rdr PARAM_RADIO_POWERMIN
paramSetRadioReadPower :: Reader -> Int32 -> IO ()
paramSetRadioReadPower rdr = paramSet rdr PARAM_RADIO_READPOWER
paramGetRadioReadPower :: Reader -> IO Int32
paramGetRadioReadPower rdr = paramGet rdr PARAM_RADIO_READPOWER
paramSetRadioWritePower :: Reader -> Int32 -> IO ()
paramSetRadioWritePower rdr = paramSet rdr PARAM_RADIO_WRITEPOWER
paramGetRadioWritePower :: Reader -> IO Int32
paramGetRadioWritePower rdr = paramGet rdr PARAM_RADIO_WRITEPOWER
paramGetRadioTemperature :: Reader -> IO Int8
paramGetRadioTemperature rdr = paramGet rdr PARAM_RADIO_TEMPERATURE
paramSetTagReadDataRecordHighestRssi :: Reader -> Bool -> IO ()
paramSetTagReadDataRecordHighestRssi rdr = paramSet rdr PARAM_TAGREADDATA_RECORDHIGHESTRSSI
paramGetTagReadDataRecordHighestRssi :: Reader -> IO Bool
paramGetTagReadDataRecordHighestRssi rdr = paramGet rdr PARAM_TAGREADDATA_RECORDHIGHESTRSSI
paramSetTagReadDataReportRssiInDbm :: Reader -> Bool -> IO ()
paramSetTagReadDataReportRssiInDbm rdr = paramSet rdr PARAM_TAGREADDATA_REPORTRSSIINDBM
paramGetTagReadDataReportRssiInDbm :: Reader -> IO Bool
paramGetTagReadDataReportRssiInDbm rdr = paramGet rdr PARAM_TAGREADDATA_REPORTRSSIINDBM
paramSetTagReadDataUniqueByAntenna :: Reader -> Bool -> IO ()
paramSetTagReadDataUniqueByAntenna rdr = paramSet rdr PARAM_TAGREADDATA_UNIQUEBYANTENNA
paramGetTagReadDataUniqueByAntenna :: Reader -> IO Bool
paramGetTagReadDataUniqueByAntenna rdr = paramGet rdr PARAM_TAGREADDATA_UNIQUEBYANTENNA
paramSetTagReadDataUniqueByData :: Reader -> Bool -> IO ()
paramSetTagReadDataUniqueByData rdr = paramSet rdr PARAM_TAGREADDATA_UNIQUEBYDATA
paramGetTagReadDataUniqueByData :: Reader -> IO Bool
paramGetTagReadDataUniqueByData rdr = paramGet rdr PARAM_TAGREADDATA_UNIQUEBYDATA
paramSetTagopAntenna :: Reader -> AntennaPort -> IO ()
paramSetTagopAntenna rdr = paramSet rdr PARAM_TAGOP_ANTENNA
paramGetTagopAntenna :: Reader -> IO AntennaPort
paramGetTagopAntenna rdr = paramGet rdr PARAM_TAGOP_ANTENNA
paramSetTagopProtocol :: Reader -> TagProtocol -> IO ()
paramSetTagopProtocol rdr = paramSet rdr PARAM_TAGOP_PROTOCOL
paramGetTagopProtocol :: Reader -> IO TagProtocol
paramGetTagopProtocol rdr = paramGet rdr PARAM_TAGOP_PROTOCOL
paramGetVersionHardware :: Reader -> IO Text
paramGetVersionHardware rdr = paramGet rdr PARAM_VERSION_HARDWARE
paramSetVersionSerial :: Reader -> Text -> IO ()
paramSetVersionSerial rdr = paramSet rdr PARAM_VERSION_SERIAL
paramGetVersionSerial :: Reader -> IO Text
paramGetVersionSerial rdr = paramGet rdr PARAM_VERSION_SERIAL
paramGetVersionModel :: Reader -> IO Text
paramGetVersionModel rdr = paramGet rdr PARAM_VERSION_MODEL
paramGetVersionSoftware :: Reader -> IO Text
paramGetVersionSoftware rdr = paramGet rdr PARAM_VERSION_SOFTWARE
paramGetVersionSupportedProtocols :: Reader -> IO [TagProtocol]
paramGetVersionSupportedProtocols rdr = paramGet rdr PARAM_VERSION_SUPPORTEDPROTOCOLS
paramSetRegionHopTable :: Reader -> [Word32] -> IO ()
paramSetRegionHopTable rdr = paramSet rdr PARAM_REGION_HOPTABLE
paramGetRegionHopTable :: Reader -> IO [Word32]
paramGetRegionHopTable rdr = paramGet rdr PARAM_REGION_HOPTABLE
paramSetRegionHopTime :: Reader -> Word32 -> IO ()
paramSetRegionHopTime rdr = paramSet rdr PARAM_REGION_HOPTIME
paramGetRegionHopTime :: Reader -> IO Word32
paramGetRegionHopTime rdr = paramGet rdr PARAM_REGION_HOPTIME
paramSetRegionId :: Reader -> Region -> IO ()
paramSetRegionId rdr = paramSet rdr PARAM_REGION_ID
paramGetRegionId :: Reader -> IO Region
paramGetRegionId rdr = paramGet rdr PARAM_REGION_ID
paramGetRegionSupportedRegions :: Reader -> IO [Region]
paramGetRegionSupportedRegions rdr = paramGet rdr PARAM_REGION_SUPPORTEDREGIONS
paramSetRegionLbtEnable :: Reader -> Bool -> IO ()
paramSetRegionLbtEnable rdr = paramSet rdr PARAM_REGION_LBT_ENABLE
paramGetRegionLbtEnable :: Reader -> IO Bool
paramGetRegionLbtEnable rdr = paramGet rdr PARAM_REGION_LBT_ENABLE
paramSetLicenseKey :: Reader -> [Word8] -> IO ()
paramSetLicenseKey rdr = paramSet rdr PARAM_LICENSE_KEY
paramGetLicenseKey :: Reader -> IO [Word8]
paramGetLicenseKey rdr = paramGet rdr PARAM_LICENSE_KEY
paramSetRadioEnableSJC :: Reader -> Bool -> IO ()
paramSetRadioEnableSJC rdr = paramSet rdr PARAM_RADIO_ENABLESJC
paramGetRadioEnableSJC :: Reader -> IO Bool
paramGetRadioEnableSJC rdr = paramGet rdr PARAM_RADIO_ENABLESJC
paramSetExtendedEpc :: Reader -> Bool -> IO ()
paramSetExtendedEpc rdr = paramSet rdr PARAM_EXTENDEDEPC
paramGetExtendedEpc :: Reader -> IO Bool
paramGetExtendedEpc rdr = paramGet rdr PARAM_EXTENDEDEPC
paramGetUri :: Reader -> IO Text
paramGetUri rdr = paramGet rdr PARAM_URI
paramGetVersionProductGroupID :: Reader -> IO Word16
paramGetVersionProductGroupID rdr = paramGet rdr PARAM_PRODUCT_GROUP_ID
paramGetVersionProductGroup :: Reader -> IO Text
paramGetVersionProductGroup rdr = paramGet rdr PARAM_PRODUCT_GROUP
paramGetVersionProductID :: Reader -> IO Word16
paramGetVersionProductID rdr = paramGet rdr PARAM_PRODUCT_ID
paramGetTagReadDataTagopSuccesses :: Reader -> IO Word16
paramGetTagReadDataTagopSuccesses rdr = paramGet rdr PARAM_TAGREADATA_TAGOPSUCCESSCOUNT
paramGetTagReadDataTagopFailures :: Reader -> IO Word16
paramGetTagReadDataTagopFailures rdr = paramGet rdr PARAM_TAGREADATA_TAGOPFAILURECOUNT
paramSetStatusAntennaEnable :: Reader -> Bool -> IO ()
paramSetStatusAntennaEnable rdr = paramSet rdr PARAM_STATUS_ENABLE_ANTENNAREPORT
paramGetStatusAntennaEnable :: Reader -> IO Bool
paramGetStatusAntennaEnable rdr = paramGet rdr PARAM_STATUS_ENABLE_ANTENNAREPORT
paramSetStatusFrequencyEnable :: Reader -> Bool -> IO ()
paramSetStatusFrequencyEnable rdr = paramSet rdr PARAM_STATUS_ENABLE_FREQUENCYREPORT
paramGetStatusFrequencyEnable :: Reader -> IO Bool
paramGetStatusFrequencyEnable rdr = paramGet rdr PARAM_STATUS_ENABLE_FREQUENCYREPORT
paramSetStatusTemperatureEnable :: Reader -> Bool -> IO ()
paramSetStatusTemperatureEnable rdr = paramSet rdr PARAM_STATUS_ENABLE_TEMPERATUREREPORT
paramGetStatusTemperatureEnable :: Reader -> IO Bool
paramGetStatusTemperatureEnable rdr = paramGet rdr PARAM_STATUS_ENABLE_TEMPERATUREREPORT
paramSetTagReadDataEnableReadFilter :: Reader -> Bool -> IO ()
paramSetTagReadDataEnableReadFilter rdr = paramSet rdr PARAM_TAGREADDATA_ENABLEREADFILTER
paramGetTagReadDataEnableReadFilter :: Reader -> IO Bool
paramGetTagReadDataEnableReadFilter rdr = paramGet rdr PARAM_TAGREADDATA_ENABLEREADFILTER
paramSetTagReadDataReadFilterTimeout :: Reader -> Int32 -> IO ()
paramSetTagReadDataReadFilterTimeout rdr = paramSet rdr PARAM_TAGREADDATA_READFILTERTIMEOUT
paramGetTagReadDataReadFilterTimeout :: Reader -> IO Int32
paramGetTagReadDataReadFilterTimeout rdr = paramGet rdr PARAM_TAGREADDATA_READFILTERTIMEOUT
paramSetTagReadDataUniqueByProtocol :: Reader -> Bool -> IO ()
paramSetTagReadDataUniqueByProtocol rdr = paramSet rdr PARAM_TAGREADDATA_UNIQUEBYPROTOCOL
paramGetTagReadDataUniqueByProtocol :: Reader -> IO Bool
paramGetTagReadDataUniqueByProtocol rdr = paramGet rdr PARAM_TAGREADDATA_UNIQUEBYPROTOCOL
paramSetDescription :: Reader -> Text -> IO ()
paramSetDescription rdr = paramSet rdr PARAM_READER_DESCRIPTION
paramGetDescription :: Reader -> IO Text
paramGetDescription rdr = paramGet rdr PARAM_READER_DESCRIPTION
paramSetHostname :: Reader -> Text -> IO ()
paramSetHostname rdr = paramSet rdr PARAM_READER_HOSTNAME
paramGetHostname :: Reader -> IO Text
paramGetHostname rdr = paramGet rdr PARAM_READER_HOSTNAME
paramSetGen2WriteReplyTimeout :: Reader -> Word16 -> IO ()
paramSetGen2WriteReplyTimeout rdr = paramSet rdr PARAM_READER_WRITE_REPLY_TIMEOUT
paramGetGen2WriteReplyTimeout :: Reader -> IO Word16
paramGetGen2WriteReplyTimeout rdr = paramGet rdr PARAM_READER_WRITE_REPLY_TIMEOUT
paramSetGen2WriteEarlyExit :: Reader -> Bool -> IO ()
paramSetGen2WriteEarlyExit rdr = paramSet rdr PARAM_READER_WRITE_EARLY_EXIT
paramGetGen2WriteEarlyExit :: Reader -> IO Bool
paramGetGen2WriteEarlyExit rdr = paramGet rdr PARAM_READER_WRITE_EARLY_EXIT
paramSetTriggerReadGpi :: Reader -> [PinNumber] -> IO ()
paramSetTriggerReadGpi rdr = paramSet rdr PARAM_TRIGGER_READ_GPI
paramGetTriggerReadGpi :: Reader -> IO [PinNumber]
paramGetTriggerReadGpi rdr = paramGet rdr PARAM_TRIGGER_READ_GPI
paramSetMetadataflags :: Reader -> [MetadataFlag] -> IO ()
paramSetMetadataflags rdr = paramSet rdr PARAM_METADATAFLAG
paramGetMetadataflags :: Reader -> IO [MetadataFlag]
paramGetMetadataflags rdr = paramGet rdr PARAM_METADATAFLAG
paramSetLicensedFeatures :: Reader -> [Word8] -> IO ()
paramSetLicensedFeatures rdr = paramSet rdr PARAM_LICENSED_FEATURES
paramGetLicensedFeatures :: Reader -> IO [Word8]
paramGetLicensedFeatures rdr = paramGet rdr PARAM_LICENSED_FEATURES
paramSetString :: Reader -> Param -> Text -> IO ()
paramSetString rdr param txt = do
let str = T.unpack txt
case paramType param of
ParamTypeBool -> paramSet rdr param (read str :: Bool)
ParamTypeGEN2_WriteMode -> paramSet rdr param (read str :: GEN2_WriteMode)
ParamTypeInt16 -> paramSet rdr param (read str :: Int16)
ParamTypeInt32 -> paramSet rdr param (read str :: Int32)
ParamTypeInt8 -> paramSet rdr param (read str :: Int8)
ParamTypePowerMode -> paramSet rdr param (read str :: PowerMode)
ParamTypeReadPlan -> paramSet rdr param (read str :: ReadPlan)
ParamTypeRegion -> paramSet rdr param (read str :: Region)
ParamTypeTagProtocol -> paramSet rdr param (read str :: TagProtocol)
ParamTypeText -> paramSet rdr param (read str :: Text)
ParamTypeWord16 -> paramSet rdr param (read str :: Word16)
ParamTypeWord32 -> paramSet rdr param (read str :: Word32)
ParamTypeWord8 -> paramSet rdr param (read str :: Word8)
ParamTypeMetadataFlagList -> paramSet rdr param (read str :: [MetadataFlag])
ParamTypeRegionList -> paramSet rdr param (read str :: [Region])
ParamTypeTagProtocolList -> paramSet rdr param (read str :: [TagProtocol])
ParamTypeWord32List -> paramSet rdr param (read str :: [Word32])
ParamTypeWord8List -> paramSet rdr param (read str :: [Word8])
_ -> paramSet rdr param (undefined :: Bool)
paramGetString :: Reader -> Param -> IO Text
paramGetString rdr param =
T.pack <$>
case paramType param of
ParamTypeBool -> show <$> (paramGet rdr param :: IO Bool)
ParamTypeGEN2_WriteMode -> show <$> (paramGet rdr param :: IO GEN2_WriteMode)
ParamTypeInt16 -> show <$> (paramGet rdr param :: IO Int16)
ParamTypeInt32 -> show <$> (paramGet rdr param :: IO Int32)
ParamTypeInt8 -> show <$> (paramGet rdr param :: IO Int8)
ParamTypePowerMode -> show <$> (paramGet rdr param :: IO PowerMode)
ParamTypeReadPlan -> show <$> (paramGet rdr param :: IO ReadPlan)
ParamTypeRegion -> show <$> (paramGet rdr param :: IO Region)
ParamTypeTagProtocol -> show <$> (paramGet rdr param :: IO TagProtocol)
ParamTypeText -> show <$> (paramGet rdr param :: IO Text)
ParamTypeWord16 -> show <$> (paramGet rdr param :: IO Word16)
ParamTypeWord32 -> show <$> (paramGet rdr param :: IO Word32)
ParamTypeWord8 -> show <$> (paramGet rdr param :: IO Word8)
ParamTypeMetadataFlagList -> show <$> (paramGet rdr param :: IO [MetadataFlag])
ParamTypeRegionList -> show <$> (paramGet rdr param :: IO [Region])
ParamTypeTagProtocolList -> show <$> (paramGet rdr param :: IO [TagProtocol])
ParamTypeWord32List -> show <$> (paramGet rdr param :: IO [Word32])
ParamTypeWord8List -> show <$> (paramGet rdr param :: IO [Word8])
_ -> show <$> (paramGet rdr param :: IO Bool)