Add a reason directive to aid in documenting annotations
This commit is contained in:
parent
98b8dc0720
commit
6fb1ce5627
|
@ -1083,6 +1083,10 @@ readAnnotationWithoutPrefix sandboxed = do
|
||||||
parseNoteAt pos ErrorC 1145 "Unknown external-sources value. Expected true/false."
|
parseNoteAt pos ErrorC 1145 "Unknown external-sources value. Expected true/false."
|
||||||
return []
|
return []
|
||||||
|
|
||||||
|
-- noop to allow a reason to be given for the annotation
|
||||||
|
"reason" -> do
|
||||||
|
return []
|
||||||
|
|
||||||
_ -> do
|
_ -> do
|
||||||
parseNoteAt keyPos WarningC 1107 "This directive is unknown. It will be ignored."
|
parseNoteAt keyPos WarningC 1107 "This directive is unknown. It will be ignored."
|
||||||
anyChar `reluctantlyTill` whitespace
|
anyChar `reluctantlyTill` whitespace
|
||||||
|
|
Loading…
Reference in New Issue