Revision 29a30533 htools/Ganeti/Query/Server.hs

b/htools/Ganeti/Query/Server.hs
222 222
-- | Function that prepares the server socket.
223 223
prepQueryD :: Maybe FilePath -> IO (FilePath, S.Socket)
224 224
prepQueryD fpath = do
225
  let socket_path = fromMaybe Path.defaultQuerySocket fpath
225
  def_socket <- Path.defaultQuerySocket
226
  let socket_path = fromMaybe def_socket fpath
226 227
  cleanupSocket socket_path
227 228
  s <- describeError "binding to the Luxi socket"
228 229
         Nothing (Just socket_path) $ getServer socket_path

Also available in: Unified diff