@@ -499,6 +499,7 @@ mergeOptions copts popts =
499 chkOpt o@(UseCodegen _) = Right o
499 chkOpt o@(UseCodegen _) = Right o
500 chkOpt o@(Verbose _) = Right o
500 chkOpt o@(Verbose _) = Right o
501 chkOpt o@(AuditIPkg) = Right o
501 chkOpt o@(AuditIPkg) = Right o
502+ chkOpt o@(DumpHighlights) = Right o
502 chkOpt o = Left (unwords ["\t", show o, "\n"])
503 chkOpt o = Left (unwords ["\t", show o, "\n"])
504 genErrMsg :: [String] -> String
505 genErrMsg :: [String] -> String
@@ -508,6 +509,7 @@ mergeOptions copts popts =
508 , "\t--log <lvl>, --total, --warnpartial, --warnreach, --warnipkg"
509 , "\t--log <lvl>, --total, --warnpartial, --warnreach, --warnipkg"
509 , "\t--ibcsubdir <path>, -i --idrispath <path>"
510 , "\t--ibcsubdir <path>, -i --idrispath <path>"
510 , "\t--logging-categories <cats>"
511 , "\t--logging-categories <cats>"
511 , "\nThe options need removing are:"
513 , "\nThe options need removing are:"
512 , unlines es
514 , unlines es