From 1c9b1462839deb6f18c3b404d7316ba307d060a5 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Wed, 18 Mar 2020 02:43:43 +0100
Subject: [PATCH] Update some comments.
---
src/QBar/Server.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/QBar/Server.hs b/src/QBar/Server.hs
index f986914..1d4b016 100644
--- a/src/QBar/Server.hs
+++ b/src/QBar/Server.hs
@@ -121,7 +121,7 @@ swayBarOutput options@MainOptions{indicator} = do
runBarServerMirror :: BarIO () -> MainOptions -> IO ()
runBarServerMirror loadBlocks options = do
- -- TODO: apply theme from remote
+ -- It would be nice to apply the theme from the remote, but because of the current split between Host and Server some redesign is required first.
(blockConsumer, eventProducer, _setTheme') <- themingBarServer options
runBarHost (return (blockConsumer, eventProducer)) $ do
addServerMirrorStream options
@@ -192,7 +192,7 @@ themingBarServer options = do
(themedBlocks, isAnimated'') <- liftIO $ modifyMVar themedBlockProducerMVar (\(themedBlockProducer, isAnimated') -> do
result <- next themedBlockProducer
case result of
- -- TODO: fix type safety on this somehow?
+ -- Maybe type safety can be improved so this pattern match is no longer needed?
Left _ -> throw $ userError "Unexpected behavior: Themes and output cache mailbox should never return"
Right (themedBlocks, nextThemedBlockProducer) ->
return ((nextThemedBlockProducer, isAnimated'), (themedBlocks, isAnimated'))
--
GitLab