Don't catch async exceptions
This commit is contained in:
@@ -54,13 +54,13 @@ data Controller = forall b. Controller T.Text (HASS (Event Value) b) Bool
|
||||
|
||||
controllers :: [Controller]
|
||||
controllers =
|
||||
[ Controller "bedroom-presence" bedroomPresenceController False
|
||||
, Controller "bedroom-button" bedroomButtonController False
|
||||
, Controller "bedroom-drawer" bedroomDrawerController False
|
||||
, Controller "bedroom-humidifier" humidifierController False
|
||||
, Controller "school-light-controller" schoolLightController False
|
||||
, Controller "kitchen-motion-controller" kitchenMotionController False
|
||||
, Controller "livingroom-presence" livingroomPresenceController False
|
||||
[ Controller "bedroom-presence" bedroomPresenceController True
|
||||
, Controller "bedroom-button" bedroomButtonController True
|
||||
, Controller "bedroom-drawer" bedroomDrawerController True
|
||||
, Controller "bedroom-humidifier" humidifierController True
|
||||
, Controller "school-light-controller" schoolLightController True
|
||||
, Controller "kitchen-motion-controller" kitchenMotionController True
|
||||
, Controller "livingroom-presence" livingroomPresenceController True
|
||||
, Controller "hallway-motion-controller" hallwayLightsController True
|
||||
]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user