From a427acd6edde147abdd4b83f8320ba5831a02e07 Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Wed, 30 Sep 2026 09:05:48 +0300 Subject: [PATCH] Fix warnings --- src/HomeAssistant/Controller/Bedroom.hs | 2 -- src/HomeAssistant/Controller/Hallway.hs | 2 +- src/HomeAssistant/Controller/Kitchen.hs | 1 - 3 files changed, 1 insertion(+), 4 deletions(-) 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)