Changeset 10747 for src/Pugs/Compile.hs

Show
Ignore:
Timestamp:
06/19/06 16:51:54 (2 years ago)
Author:
audreyt
Message:

* Don't use the klugy Sym"" form; instead use the new Annotation

type "Parens".

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile.hs

    r10745 r10747  
    144144    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    145145    compile (Ann Prag{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
     146    compile (Ann Parens{} rest) = compile rest 
    146147    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
    147148    compile (Sym _ "" rest) = compile rest 
    … …  
    205206    -- XXX: pragmas? 
    206207    compile (Ann Prag{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
     208    compile (Ann Parens{} rest) = compile rest 
    207209    compile (Sym _ "" rest) = compile rest 
    208210    compile Noop = return PNoop 
    … …  
    280282    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    281283    compile (Ann Prag{} rest) = compile rest 
     284    compile (Ann Parens{} rest) = compile rest 
    282285    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
    283286    compile (Sym _ "" rest) = compile rest 
    … …  
    378381    compile (Ann Pos{} rest) = compile rest -- fmap (PPos pos rest) $ compile rest 
    379382    compile (Ann Prag{} rest) = compile rest 
     383    compile (Ann Parens{} rest) = compile rest 
    380384    compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest 
    381385    compile (Sym _ "" rest) = compile rest