Changeset 13250 for src/Pugs/Val

Show
Ignore:
Timestamp:
09/13/06 02:14:52 (2 years ago)
Author:
audreyt
Message:

* Change Pugs.Val.Code.Param.p_variable from ID to Var

so that my p6l reply to gaal++ would actually make sense. :-)

Also unify the Var type from both oldLand and newLand;
augmentation of Var should take place in Pugs.Types.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Val/Code.hs

    r13216 r13250  
    9898-} 
    9999data SigParam = MkParam 
    100     { p_variable    :: ID            -- ^ E.g. $m above 
     100    { p_variable    :: Var           -- ^ E.g. $m above 
    101101    , p_types       :: [Types.Type]  -- ^ Static pieces of inferencer-food 
    102102                                     --   E.g. Elk above 
    … …  
    166166    varName 
    167167        | isPos = text (cast $ p_variable p) 
    168         | Buf.tail (cast $ p_variable p) == (cast $ p_label p) = text $ ":" ++ (cast $ p_variable p) 
     168        | v_name (p_variable p) == p_label p = text $ ":" ++ (cast $ p_variable p) 
    169169        | otherwise = text ":" <> text (cast p_label p) <> (parens $ text (cast p_variable p)) 
    170170    -- staticTypes = hsep $ map (text . (cast :: Types.Type -> String)) $ p_types p XXX: why is this wrong?