Comments inside of type declaration does not parse

[tunguski]

-- BBlack and NBlack should only be used during the deletion
-- algorithm. Any other occurrence is a bug and should fail an assert.
type NColor
    = Red
    | Black
    | BBlack  -- Double Black, counts as 2 blacks for the invariant
    | NBlack  -- Negative Black, counts as -1 blacks for the invariant

Comment after BBlack and before NBlack causes parse error.

[tunguski]

Similar case:

if True {- ok! -}
then True
else False