From 362e7fa84864a51956b2fd2d8590dee2453197b7 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Mon, 3 Feb 2020 02:48:08 +0100
Subject: [PATCH] Remove active usages of 'error'
---
src/QBar/ControlSocket.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 6dde25c..17ea5df 100644
--- a/src/QBar/ControlSocket.hs
+++ b/src/QBar/ControlSocket.hs
@@ -34,7 +34,6 @@ import System.Environment (getEnv)
type CommandChan = TChan Command
data Command = SetTheme T.Text
- | Block
deriving Show
data SocketResponse = Success | Error Text
@@ -110,7 +109,7 @@ listenUnixSocket options commandChan = do
response <- maybe (errorResponse "Empty stream") (either handleError (handleCommand leftovers)) decodeResult
runEffect (encode response >-> consumer)
handleCommand :: Producer ByteString IO () -> Command -> IO SocketResponse
- handleCommand _ Block = error "TODO" -- addBlock $ handleBlockStream leftovers
+ --handleCommand _ Block = error "TODO" -- addBlock $ handleBlockStream leftovers
handleCommand _ command = do
atomically $ writeTChan commandChan command
return Success
--
GitLab