factor observe_

This commit is contained in:
Joey Hess 2012-01-02 14:54:23 -04:00
parent 5cd44282a9
commit fc80b8d96b
3 changed files with 10 additions and 13 deletions

View file

@ -36,3 +36,7 @@ observe observer a = do
r <- a
_ <- observer r
return r
{- Like observe, but the observer is not passed the value. -}
observe_ :: (Monad m) => m b -> m a -> m a
observe_ observer = observe (const observer)