Skip to content
Snippets Groups Projects
Commit ad6cffe4 authored by Iustin Pop's avatar Iustin Pop
Browse files

Fix instance listing for non-redundant case

parent c4ef235b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Ganeti/HTools/Cluster.hs
+ 4
− 1
View file @ ad6cffe4
...@@ -708,7 +708,10 @@ printInsts nl il = ...@@ -708,7 +708,10 @@ printInsts nl il =
helper inst = printf "%2s %-*s %-*s %-*s" helper inst = printf "%2s %-*s %-*s %-*s"
" " m_name (Instance.name inst) " " m_name (Instance.name inst)
m_nnm (Container.nameOf nl (Instance.pNode inst)) m_nnm (Container.nameOf nl (Instance.pNode inst))
m_nnm (Container.nameOf nl (Instance.sNode inst)) m_nnm (let sdx = Instance.sNode inst
in if sdx == Node.noSecondary
then ""
else Container.nameOf nl sdx)
header = printf "%2s %-*s %-*s %-*s" header = printf "%2s %-*s %-*s %-*s"
" " m_name "Name" m_nnm "Pri_node" m_nnm "Sec_node"::String " " m_name "Name" m_nnm "Pri_node" m_nnm "Sec_node"::String
in unlines (header:map helper sil) in unlines (header:map helper sil)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment