Skip to content
Snippets Groups Projects
Commit 5e310168 authored by Jens Nolte's avatar Jens Nolte
Browse files

Fix compilation with outdated network library

parent 0cb8e475
No related branches found
No related tags found
No related merge requests found
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
...@@ -266,7 +267,12 @@ listenUnixSocket options@MainOptions{verbose} bar commandHandler = do ...@@ -266,7 +267,12 @@ listenUnixSocket options@MainOptions{verbose} bar commandHandler = do
socketExists <- doesFileExist socketPath socketExists <- doesFileExist socketPath
when socketExists $ removeFile socketPath when socketExists $ removeFile socketPath
sock <- socket AF_UNIX Stream defaultProtocol sock <- socket AF_UNIX Stream defaultProtocol
#if MIN_VERSION_network(3,0,0)
withFdSocket sock setCloseOnExecIfNeeded withFdSocket sock setCloseOnExecIfNeeded
#else
setCloseOnExecIfNeeded $ fdSocket sock
#endif
bind sock (SockAddrUnix socketPath) bind sock (SockAddrUnix socketPath)
listen sock 5 listen sock 5
forever $ do forever $ do
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment