diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 6dde25c634bf9a8f1d457eb9bee2ab9d985f4a90..17ea5df4b848b1f4920695fff9b7dba144f89f86 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