Ikea buttons

2026-08-20 23:51:35 +03:00
parent 4d689be6ea
commit 0b29b081e2
3 changed files with 3 additions and 2 deletions
@@ -6,10 +6,9 @@ import HomeAssistant.Controller
 import qualified Data.Text as T
 import AFRP (Event (..), (>>|), toEvent, lMerge)
 import Data.Aeson (Value, object, (.=))
-import Control.Arrow ((>>>), returnA, arr, ArrowChoice (..), Arrow (..))
+import Control.Arrow ((>>>), returnA, arr, Arrow (..))
 import Control.Lens ((^?), to, traversed)
 import Data.Aeson.Lens (key, _String)
-import qualified Data.Text.Lens as TL