From 5e31016884b0107ae7efb48b76f2305d9720383c Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Thu, 12 Mar 2020 01:20:19 +0100
Subject: [PATCH] Fix compilation with outdated network library
---
src/QBar/ControlSocket.hs | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/QBar/ControlSocket.hs b/src/QBar/ControlSocket.hs
index 52f1b97..ee4a248 100644
--- a/src/QBar/ControlSocket.hs
+++ b/src/QBar/ControlSocket.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE ScopedTypeVariables #-}
@@ -266,7 +267,12 @@ listenUnixSocket options@MainOptions{verbose} bar commandHandler = do
socketExists <- doesFileExist socketPath
when socketExists $ removeFile socketPath
sock <- socket AF_UNIX Stream defaultProtocol
+
+#if MIN_VERSION_network(3,0,0)
withFdSocket sock setCloseOnExecIfNeeded
+#else
+ setCloseOnExecIfNeeded $ fdSocket sock
+#endif
bind sock (SockAddrUnix socketPath)
listen sock 5
forever $ do
--
GitLab