Making the controllers more linear

Basically, the idea of `(oneBranch <> secondBranch)` instead of

```
do
x <- foo
case x of
  ...
```

src/HomeAssistant/Runtime.hs

@@ -48,6 +48,7 @@ import Text.Read (readMaybe)
 import UnliftIO.Async
 import Control.Monad.Catch (MonadCatch)
 import Control.Exception.Annotated (checkpoint, Annotation (..))
+import AFRP.Diagram (renderF)
 
 step :: (MonadIO m) => FilePath -> T.Text -> UUID -> Auto m a b -> a -> m (b, Auto m a b)
 step path name trace st a = do
@@ -122,6 +123,8 @@ defaultMain =
         rrdtool <- fromMaybe "rrdtool" <$> liftIO (lookupEnv "HA_RRDTOOL")
         metricsPort <- lookupPort
         writerLimiter <- slidingWindowLimiter rateLimitMetrics 10 20
+        forM_ controllers $ \(Controller n m) ->
+          logLocM InfoS $ ls $ n <> ": " <> fromMaybe "" (runDiagramC m renderF)
         let ents = foldMap (\(Controller _ m) -> entities m) controllers
             workers =
               [ ("reader", readerAction host 8123 token ents bus),