mirror of
https://github.com/haskell-nix/hnix-store.git
synced 2024-08-17 13:51:21 +03:00
remote: fix pretty TODO failing to parse on old GHC
This commit is contained in:
parent
3eb346699b
commit
29f58f46e7
@ -161,11 +161,10 @@ runDaemonSocket workerHelper postGreet sockFamily sockAddr k =
|
||||
Network.Socket.Stream
|
||||
Network.Socket.defaultProtocol
|
||||
)
|
||||
(\lsock -> liftIO $ Network.Socket.close lsock) -- *> System.Directory.removeFile f)
|
||||
(\lsock -> liftIO $ Network.Socket.close lsock)
|
||||
$ \lsock -> do
|
||||
-- ^^^^^^^^^^^^
|
||||
-- TODO: this: -------------------------------------------------------////////////
|
||||
-- should really be
|
||||
-- TODO: the: (\lsock -> liftIO $ Network.Socket.close lsock *> System.Directory.removeFile f)
|
||||
-- branch should really be (and even removeFile is currently omitted)
|
||||
-- a file lock followed by unlink *before* bind rather than after close. If
|
||||
-- the program crashes (or loses power or something) then a stale unix
|
||||
-- socket will stick around and prevent the daemon from starting. using a
|
||||
|
Loading…
Reference in New Issue
Block a user