formatRequirement :: CmdlCmdRequirements -> String
formatRequirement r = let s = showRequirement r in
  if null s then "" else '<' : s ++ ">"
formatRequirement :: CmdlCmdRequirements -> String
formatRequirement r = let s = showRequirement r in
  if null s then "" else '<' : s ++ ">"
formatRequirement r = let s = showRequirement r in
  if null s then "" else '<' : s ++ ">"