flagDeprecated :: Deprecated -- is the flag deprecated?
}
-data Deprecated = Supported | Deprecated String
+data Deprecated = Supported
+ | Deprecated String
+ | DeprecatedFullText String
data OptKind m -- Suppose the flag is -f
= NoArg (m ()) -- -f all by itself
let warns' = case deprecated of
Deprecated warning ->
L loc ("Warning: " ++ dash_arg ++ " is deprecated: " ++ warning) : warns
+ DeprecatedFullText warning ->
+ L loc ("Warning: " ++ warning) : warns
Supported -> warns
in case processOneArg action rest arg args of
Left err -> process spec args spare (L loc err : errs) warns'
errorsToGhcException :: [Located String] -> GhcException
errorsToGhcException errs =
let errors = vcat [ ppr l <> text ": " <> text e | L l e <- errs ]
- in UsageError (showSDoc errors)
+ in UsageError (showSDoc $ withPprStyle cmdlineParserStyle errors)