Of course there is "return ()" missing. check x assoc = case lookup x of Just found -> putStrLn ("found " ++ found) _ -> return () On Thu, Aug 1, 2013 at 5:34 PM, Krzysztof Skrzętnicki <gtener@gmail.com>wrote:
I'd rather use pattern matching in this case:
check x assoc = case lookup x of Just found -> putStrLn ("found " ++ found) _ ->
Not really shorter but I think it's cleaner this way.
On Thu, Aug 1, 2013 at 5:00 PM, vold <voldermort@hotmail.com> wrote:
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?
_______________________________________________ Beginners mailing list Beginners@haskell.org http://www.haskell.org/mailman/listinfo/beginners