Changeset 13353 for src/Pugs/Val

Show
Ignore:
Timestamp:
09/16/06 08:30:44 (2 years ago)
Author:
gaal
Message:

* Pugs.Parser: parse cody constraints on params, even if they're

ignored for now:

:(Int $x where { $x % 2 })

* Pugs.Val.Code: very minor cleanups

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Val/Code.hs

    r13273 r13353  
    161161 
    162162prettyParam :: Param -> Bool -> Bool -> Doc 
    163 prettyParam p isReq isPos = staticTypes <+> varName <> defaultHint <+> sep 
    164     [ traits, unpacking, constraints, debugDump ] 
     163prettyParam p isReq isPos = sep [ staticTypes, varDecl, traits, unpacking, constraints, debugDump ] 
    165164    where 
     165    varDecl = varName <> defaultHint 
    166166    varName 
    167167        | isPos = text (cast $ p_variable p)