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