Fix warnings

src/HomeAssistant/Controller/Bedroom.hs

@@ -3,7 +3,6 @@
 module HomeAssistant.Controller.Bedroom where
 
 import HomeAssistant.Controller
-import HomeAssistant.Controller.Light.Mode (LightingMode (..))
 import qualified Data.Text as T
 import AFRP (Event (..), lMerge, duration, edge)
 import Data.Aeson (Value, object, (.=))
@@ -14,7 +13,6 @@ import qualified AFRP
 import Data.Map (Map)
 import qualified Data.Map.Strict as M
 import Data.Serialize.Text ()
-import Data.Foldable (traverse_)
 import Data.Default (def)
 
 

src/HomeAssistant/Controller/Hallway.hs

@@ -7,7 +7,7 @@ import HomeAssistant.Controller.Light.Mode (LightingMode (..), lightingModeEvent
 import AFRP (Event (..))
 import qualified AFRP
 import Data.Aeson (Value)
-import Control.Arrow ((>>>), Arrow (..), returnA)
+import Control.Arrow ((>>>), returnA)
 import Data.Time (LocalTime(..), TimeOfDay (..))
 import Data.Default (def)
 

src/HomeAssistant/Controller/Kitchen.hs

@@ -2,7 +2,6 @@
 {-# LANGUAGE Arrows #-}
 module HomeAssistant.Controller.Kitchen where
 import HomeAssistant.Controller
-import HomeAssistant.Controller.Light.Mode (LightingMode (..), lightingModeEvents)
 import AFRP (Event (..))
 import qualified AFRP
 import Data.Aeson (Value)