如何在Haskell中实现findM?

Leo*_*ang 0 monads haskell functional-programming

是否存在以下功能的实现?我在hoogle上找不到它

findM :: Monad m => (a -> m Bool) -> [a] -> m (Maybe a)
Run Code Online (Sandbox Code Playgroud)