diff --git a/Ganeti/HTools/IAlloc.hs b/Ganeti/HTools/IAlloc.hs index 2575e02902296f86a1a8270d31d69eefa770f960..a2f5aec99ecffd1c18fa73f075d50ca8536792ad 100644 --- a/Ganeti/HTools/IAlloc.hs +++ b/Ganeti/HTools/IAlloc.hs @@ -158,7 +158,7 @@ formatRVal csf _ elems = -- | Formats the response into a valid IAllocator response message. formatResponse :: Bool -- ^ Whether the request was successful -> String -- ^ Information text - -> String -- ^ Suffix for nodes/instances + -> String -- ^ Suffix for nodes and instances -> RqType -- ^ Request type -> [Node.AllocElement] -- ^ The resulting allocations -> String -- ^ The JSON-formatted message