MasseR/home-assistant-controller
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
MasseR
2026-09-30 09:05:48 +03:00
parent aee34f4e14
commit a427acd6ed
3 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/HomeAssistant/Controller/Bedroom.hs
-2
View File
@@ -3,7 +3,6 @@
module HomeAssistant.Controller.Bedroom where module HomeAssistant.Controller.Bedroom where
import HomeAssistant.Controller import HomeAssistant.Controller
import HomeAssistant.Controller.Light.Mode (LightingMode (..))
import qualified Data.Text as T import qualified Data.Text as T
import AFRP (Event (..), lMerge, duration, edge) import AFRP (Event (..), lMerge, duration, edge)
import Data.Aeson (Value, object, (.=)) import Data.Aeson (Value, object, (.=))
@@ -14,7 +13,6 @@ import qualified AFRP
import Data.Map (Map) import Data.Map (Map)
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
import Data.Serialize.Text () import Data.Serialize.Text ()
import Data.Foldable (traverse_)
import Data.Default (def) import Data.Default (def)
src/HomeAssistant/Controller/Hallway.hs
+1 -1
View File
@@ -7,7 +7,7 @@ import HomeAssistant.Controller.Light.Mode (LightingMode (..), lightingModeEvent
import AFRP (Event (..)) import AFRP (Event (..))
import qualified AFRP import qualified AFRP
import Data.Aeson (Value) import Data.Aeson (Value)
import Control.Arrow ((>>>), Arrow (..), returnA) import Control.Arrow ((>>>), returnA)
import Data.Time (LocalTime(..), TimeOfDay (..)) import Data.Time (LocalTime(..), TimeOfDay (..))
import Data.Default (def) import Data.Default (def)
src/HomeAssistant/Controller/Kitchen.hs
-1
View File
@@ -2,7 +2,6 @@
{-# LANGUAGE Arrows #-} {-# LANGUAGE Arrows #-}
module HomeAssistant.Controller.Kitchen where module HomeAssistant.Controller.Kitchen where
import HomeAssistant.Controller import HomeAssistant.Controller
import HomeAssistant.Controller.Light.Mode (LightingMode (..), lightingModeEvents)
import AFRP (Event (..)) import AFRP (Event (..))
import qualified AFRP import qualified AFRP
import Data.Aeson (Value) import Data.Aeson (Value)