From 37239cb3e7a3a1b175b6be8c2307f453a5d70634 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Wed, 20 Nov 2019 13:20:00 +0100
Subject: [PATCH] Change control socket path prefix to '-qbar'
---
src/QBar/ControlSocket.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 8b532f8..0ab574f 100644
--- a/src/QBar/ControlSocket.hs
+++ b/src/QBar/ControlSocket.hs
@@ -24,7 +24,7 @@ import Pipes.Aeson.Unchecked (encode)
import Pipes.Network.TCP (fromSocket, toSocket)
import System.Directory (removeFile, doesFileExist)
import System.Environment (getEnv)
-import System.FilePath ((</>), (<.>))
+import System.FilePath ((</>))
import System.IO
type CommandChan = TChan Command
@@ -45,7 +45,7 @@ ipcSocketAddress MainOptions{socketLocation} = maybe defaultSocketPath (return .
defaultSocketPath = do
xdgRuntimeDir <- getEnv "XDG_RUNTIME_DIR"
waylandDisplay <- getEnv "WAYLAND_DISPLAY"
- return $ xdgRuntimeDir </> waylandDisplay <.> "qbar"
+ return $ xdgRuntimeDir </> waylandDisplay <> "-qbar"
sendIpc :: MainOptions -> Command -> IO ()
sendIpc options@MainOptions{verbose} request = do
--
GitLab