Revision fad06963 htools/Ganeti/Common.hs

b/htools/Ganeti/Common.hs
91 91

  
92 92
-- | Text serialisation for 'OptCompletion', used on the Python side.
93 93
complToText :: OptCompletion -> String
94
complToText (OptComplChoices choices) = "choices " ++ intercalate "," choices
95
complToText (OptComplSuggest choices) = "suggest " ++ intercalate "," choices
94
complToText (OptComplChoices choices) = "choices=" ++ intercalate "," choices
95
complToText (OptComplSuggest choices) = "suggest=" ++ intercalate "," choices
96 96
complToText compl =
97 97
  let show_compl = show compl
98 98
      stripped = stripPrefix "OptCompl" show_compl

Also available in: Unified diff