Fix warnings

src/HomeAssistant/Controller.hs

@@ -24,8 +24,8 @@ module HomeAssistant.Controller
   , lightController
   ) where
 
-import AFRP (Mealy, eff, Event(..), hold, events, changes, mapAccum, filterA, (>>|), toEvent)
-import Control.Arrow (Arrow(..), ArrowChoice(..), returnA)
+import AFRP (Mealy, eff, Event(..), hold, events, changes, filterA, (>>|), toEvent)
+import Control.Arrow (Arrow(..), returnA)
 import Control.Category ((>>>))
 import Data.Aeson (Value)
 import qualified Data.Text as T
@@ -63,15 +63,6 @@ data Ruuvi = Ruuvi { ruuviTemperature :: Double, ruuviPressure :: Double }
 ruuvi :: Mealy eff (Event Value) (Event Ruuvi)
 ruuvi = (Ruuvi <$> ruuviTemperatures <*> ruuviPressures) >>> changes
 
-data Direction = Increase | Decrease | Steady
-  deriving (Show, Eq)
-
-numericDirection = mapAccum go (Nothing, Nothing) extract
-  where
-    go (_, old) new = (old, new)
-    extract :: (Maybe Double, Maybe Double) -> Direction
-    extract (old, new) = maybe Steady (\x -> if x >  0 then Increase else Decrease) $ (-) <$> old <*> new
-
 data DoorState = Open | Closed
   deriving (Show, Eq)
 
@@ -101,9 +92,6 @@ lightController = proc ev -> do
 
 entityChangeEvent :: T.Text -> Mealy eff (Event Value) (Event Value)
 entityChangeEvent entityId = entityChangeEvent' entityId >>> toEvent
-  where
-    isEntity :: Value -> Bool
-    isEntity = has (key "event" . key "data" . key "entity_id" . _String . only entityId)
 
 entityChangeEvent' :: T.Text -> Mealy eff (Event Value) (Either () Value)
 entityChangeEvent' entityId = events >>| filterA isEntity
@@ -123,13 +111,10 @@ entityBool' entityId = entityChangeEvent' entityId >>| (arr state >>> arr (maybe
     toBool = \case
       "on" -> True
       "off" -> False
+      _ -> False
 
 entityRead :: (Read a) => T.Text -> Mealy eff (Event Value) (Event a)
 entityRead entityId = entityRead' entityId >>> toEvent
-  where
-    state v = v ^? key "event" . key "data" . key "new_state" . key "state" . _String . TL.unpacked . to read
 
 entityBool :: T.Text -> Mealy eff (Event Value) (Event Bool)
 entityBool entityId = entityBool' entityId >>> toEvent
-  where
-    state v = v ^? key "event" . key "data" . key "new_state" . key "state" . _String . TL.unpacked . to read