Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Monad/When.hs
module Monad where when :: (Monad m) => Bool -> m () -> m () when p s = if p then s else return ()
