diff --git a/src/HomeAssistant/Controller/Bedroom.hs b/src/HomeAssistant/Controller/Bedroom.hs
index 5c2ed8b..8f9ae84 100644
--- a/src/HomeAssistant/Controller/Bedroom.hs
+++ b/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)
 
 
diff --git a/src/HomeAssistant/Controller/Hallway.hs b/src/HomeAssistant/Controller/Hallway.hs
index db886e2..248b3b7 100644
--- a/src/HomeAssistant/Controller/Hallway.hs
+++ b/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)
 
diff --git a/src/HomeAssistant/Controller/Kitchen.hs b/src/HomeAssistant/Controller/Kitchen.hs
index ac738f4..0fd49f9 100644
--- a/src/HomeAssistant/Controller/Kitchen.hs
+++ b/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)