From 4c928d4c334b1fdd2d10425598eb705d9852d924 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Sat, 1 Feb 2020 04:36:06 +0100
Subject: [PATCH] Remove currently dysfunctional control socket
---
src/QBar/Server.hs | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/src/QBar/Server.hs b/src/QBar/Server.hs
index 013eb11..35da00f 100644
--- a/src/QBar/Server.hs
+++ b/src/QBar/Server.hs
@@ -10,7 +10,7 @@ import QBar.Host
import QBar.Theme
import Control.Monad (forever, when, unless, forM_)
-import Control.Concurrent.Async
+-- import Control.Concurrent.Async
import Control.Concurrent.STM.TChan (newTChanIO)
import Data.Aeson (encode, decode, ToJSON, toJSON, object, (.=))
import Data.ByteString.Lazy (hPut)
@@ -108,18 +108,18 @@ runBarServer defaultBarConfig options = runBarHost barServer (swayBarInput optio
defaultBarConfig
-- Create control socket
- commandChan <- liftIO createCommandChan
- controlSocketAsync <- liftIO $ listenUnixSocketAsync options commandChan
- liftIO $ link controlSocketAsync
+ -- commandChan <- liftIO createCommandChan
+ -- controlSocketAsync <- liftIO $ listenUnixSocketAsync options commandChan
+ -- liftIO $ link controlSocketAsync
- bar <- askBar
+ -- bar <- askBar
-- Update bar on control socket messages
- socketUpdateAsync <- liftIO $ async $ forever $ do
- -- command <- atomically $ readTChan commandChan
- void $ error "TODO"
- updateBar' bar
- liftIO $ link socketUpdateAsync
+ -- socketUpdateAsync <- liftIO $ async $ forever $ do
+ -- -- command <- atomically $ readTChan commandChan
+ -- void $ error "TODO"
+ -- updateBar' bar
+ -- liftIO $ link socketUpdateAsync
swayBarOutput options
--
GitLab