imports
{
import CommonTypes
import UU.Scanner.Position(Pos)
}

DATA HsTokensRoot
   | HsTokensRoot tokens : HsTokens

TYPE HsTokens = [HsToken]

DATA HsToken
   | AGLocal   var   : {Identifier}
               pos   : {Pos}
               rdesc : {Maybe String}  -- description of the rule the local reference appears in

   | AGField   field : {Identifier}
               attr  : {Identifier}
               pos   : {Pos}
               rdesc : {Maybe String}  -- description of the rule the attribute reference appears in

   | HsToken   value : {String}
               pos   : {Pos}
   | CharToken value : {String}
               pos   : {Pos}
   | StrToken  value : {String}
               pos   : {Pos}
   | Err       mesg  : {String}
               pos   : {Pos}



DERIVING HsToken : Show