cleanupSocket :: FilePath -> N.Socket -> IO ()
cleanupSocket sockFile sock = do
  N.close sock
  whenM (doesFileExist sockFile) $ removeFile sockFile
cleanupSocket :: FilePath -> N.Socket -> IO ()
cleanupSocket sockFile sock = do
  N.close sock
  whenM (doesFileExist sockFile) $ removeFile sockFile
cleanupSocket sockFile sock = do
  N.close sock
  whenM (doesFileExist sockFile) $ removeFile sockFile