Jak radzić sobie z komentarzami w moim AST?

Piszę kodu parser Delphi za pomocą parsec, moje obecne struktury danych AST wyglądać następująco:Jak radzić sobie z komentarzami w moim AST?

module Text.DelphiParser.Ast where 

data TypeName = TypeName String [String] deriving (Show) 
type UnitName = String 
data ArgumentKind = Const | Var | Out | Normal deriving (Show) 
data Argument = Argument ArgumentKind String TypeName deriving (Show) 
data MethodFlag = Overload | Override | Reintroduce | Static | StdCall deriving (Show) 
data ClassMember = 
     ConstField String TypeName 
    | VarField String TypeName 
    | Property String TypeName String (Maybe String) 
    | ConstructorMethod String [Argument] [MethodFlag] 
    | DestructorMethod String [Argument] [MethodFlag] 
    | ProcMethod String [Argument] [MethodFlag] 
    | FunMethod String [Argument] TypeName [MethodFlag] 
    | ClassProcMethod String [Argument] [MethodFlag] 
    | ClassFunMethod String [Argument] TypeName [MethodFlag] 
    deriving (Show) 
data Visibility = Private | Protected | Public | Published deriving (Show) 
data ClassSection = ClassSection Visibility [ClassMember] deriving (Show) 
data Class = Class String [ClassSection] deriving (Show) 
data Type = ClassType Class deriving (Show) 
data Interface = Interface [UnitName] [Type] deriving (Show) 
data Implementation = Implementation [UnitName] deriving (Show) 
data Unit = Unit String Interface Implementation deriving (Show)

chcę zachować komentarze w moich struktur danych AST i jestem obecnie próbuje dowiedzieć się, jak to zrobić to.

Mój parser jest podzielony na leksera i parser (oba napisane za pomocą Parsetu), a ja już zaimplementowałem leksykację komentarzy.

unit SomeUnit; 

interface 

uses 
    OtherUnit1, OtherUnit2; 

type 
    // This is my class that does blabla 
    TMyClass = class 
    var 
    FMyAttribute: Integer; 
    public 
    procedure SomeProcedure; 
    { The constructor takes an argument ... } 
    constructor Create(const Arg1: Integer); 
    end; 

implementation 

end.

Token strumień wygląda następująco:

[..., Type, LineComment " This is my class that does blabla", Identifier "TMyClass", Equals, Class, ...]

Parser przekłada się to na:

Class "TMyClass" ...

Typ Class danych nie ma żadnego sposobu, aby dołączyć komentarze i od komentarzy (szczególnie komentarze blokowe) mogą pojawić się prawie wszędzie w strumieniu tokenów, musiałbym dodać opcjonalny komentarz do wszystkich typów danych w AST?