diff --git a/Ganeti/HTools/CLI.hs b/Ganeti/HTools/CLI.hs index ab2095f1928c3a9a1ef19f81c3e3bd17649e081c..336980c508b3434eecff2d56535d65a47e7b0b7a 100644 --- a/Ganeti/HTools/CLI.hs +++ b/Ganeti/HTools/CLI.hs @@ -346,7 +346,8 @@ oTieredSpec = Option "" ["tiered-alloc"] tspec <- case prs of [dsk, ram, cpu] -> return $ RSpec cpu ram dsk - _ -> Bad $ "Invalid specification: " ++ inp + _ -> Bad $ "Invalid specification: " ++ inp ++ + ", expected disk,ram,cpu" return $ opts { optTieredSpec = Just tspec } ) "TSPEC") "enable tiered specs allocation, given as 'disk,ram,cpu'"