when debug (putStrLn "Debugging")
whenJust Nothing print == pure () whenJust (Just 1) print == print 1
whenMaybe True (print 1) == fmap Just (print 1) whenMaybe False (print 1) == pure Nothing