Haskell有` `when`‘和’`unless`‘的组合吗？

when :: Monad m => Bool -> m () -> m ()
when p s = if p then s else return ()

unless :: Monad m => Bool -> m () -> m ()
unless p s = if not p then s else return ()

import Control.Monad

main :: IO ()
main = do
  input <- getLine
  when (input == "hello") $ putStrLn "Hello, World!"

import Control.Monad.State

data AppState = AppState { count :: Int }

incrementCount :: State AppState ()
incrementCount = do
  state <- get
  when (count state < 10) $ modify (\s -> s { count = count s + 1 })