since were just making up functions.. myCoolSubroutine = do now <- getCurrentTime users <- getUsers forM users (sendEmail now) sendE

since were just making up functions.. myCoolSubroutine = do now <- getCurrentTime users <- getUsers forM users (sendEmail now) sendEmail now user = if user.expiry <= now then sendExpiryEmail user else sendNonExpiryEmail user The whole pipeline thing is a red herring IMO.