getObjectType :: ObjectIdentifier -> Word16
getObjectType = fromIntegral . (.&. 0x3F) . flip shiftR 22 . objectIdentifierValue
getObjectType :: ObjectIdentifier -> Word16
getObjectType = fromIntegral . (.&. 0x3F) . flip shiftR 22 . objectIdentifierValue
getObjectType = fromIntegral . (.&. 0x3F) . flip shiftR 22 . objectIdentifierValue