Changeset 7288 for src/Pugs/Internals.hs

Show
Ignore:
Timestamp:
10/04/05 23:14:55 (3 years ago)
Author:
autrijus
Message:

* guarded liftIO is now guardIO.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Internals.hs

    r6682 r7288  
    6565    forM, 
    6666    forM_, 
    67     tryIO, 
    6867    combine, 
    6968    modifyTVar, 
    … …  
    225224forM_ = flip mapM_ 
    226225 
    227 tryIO :: (MonadIO m) => a -> IO a -> m a 
    228 tryIO err = liftIO . (`catch` (const $ return err)) 
    229  
    230226{-| 
    231227Compose a list of @(a -> a)@ transformer functions into a single chained