X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/9fb621af928d3199a1986244d2405ddf622dbf95..7d8b651eb4013f9ef1824999ac7eacf637866d36:/src/Ganeti/Common.hs diff --git a/src/Ganeti/Common.hs b/src/Ganeti/Common.hs index 17750b4..80f9ad9 100644 --- a/src/Ganeti/Common.hs +++ b/src/Ganeti/Common.hs @@ -123,7 +123,7 @@ argComplToText :: ArgCompletion -> String argComplToText (ArgCompletion optc min_cnt max_cnt) = complToText optc ++ " " ++ show min_cnt ++ " " ++ maybe "none" show max_cnt --- | Abrreviation for the option type. +-- | Abbreviation for the option type. type GenericOptType a = (OptDescr (a -> Result a), OptCompletion) -- | Type class for options which support help and version.