[Haskell-beginners] maybe in IO

[vold]

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?