Changeset 7591 for src/Pugs/Prim/List.hs

Show
Ignore:
Timestamp:
10/13/05 13:14:33 (3 years ago)
Author:
autrijus
Message:

* change liftM to fmap for more golfing value...

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim/List.hs

    r6793 r7591  
    220220op2Map list sub = do 
    221221    args  <- fromVal list 
    222     arity <- liftM length $ (fromVal sub >>= return . subParams) 
     222    arity <- fmap length $ (fromVal sub >>= return . subParams) 
    223223    evl  <- asks envEval 
    224224    vals <- mapMn args arity $ \x -> do