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

Faster transition

Browse Source
This commit is contained in:
MasseR
2026-09-29 20:42:14 +03:00
parent 73d4255fd7
commit fcaccfdeb0
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/HomeAssistant/Controller/Bedroom.hs
+2 -2
View File
@@ -62,7 +62,7 @@ bedroomPresenceController = proc x -> do
callService (activateSceneWith "scene.makuuhuone_lepotila" transition) -< ()
_ -> returnA -< ()
where
transition = Just $ object ["transition" .= (10 :: Int)]
transition = Just $ object ["transition" .= (1:: Int)]
data BedroomControls
@@ -103,7 +103,7 @@ bedroomButtonController = proc x -> do
callService (light [AreaId "makuuhuone"] Off) -< ()
_ -> returnA -< ()
where
transition = Just $ object ["transition" .= (5 :: Int)]
transition = Just $ object ["transition" .= (1 :: Int)]