[Haskell-beginners] maybe in IO

I've defined a function similar to check x assoc = let found = lookup x assoc in when (isJust found) $ putStrLn $ "found " ++ fromJust found which I've used several times from within the IO monad. Is there a more compact way of doing this?