Hello J., Sunday, February 4, 2007, 11:46:57 PM, you wrote:
> exists s wmap = isJust $ find (==s) . snd =<< Map.lookup (sort s) wmap
exists s wmap = Map.lookup (sort s) wmap
>>== snd
>>== find (==s)
>>== isJust
a>>==b = a>>=return.b
--
Best regards,
Bulat mailto:[EMAIL PROTECTED]
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
