<div dir="ltr"><div>I think you're looking at the Monoid instance for First:</div><div><br></div>λ> import Data.Monoid<div>λ> let first f = getFirst . foldMap (First . f)</div><div>λ> first (\x -> guard (x > 2) *> pure x) [1..10]</div><div>Just 3</div><div><br></div><div><br></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Matt Parsons</div></div></div></div>
<br><div class="gmail_quote">On Fri, Apr 7, 2017 at 2:57 AM, Paul Brauner <span dir="ltr"><<a href="mailto:polux2001@gmail.com" target="_blank">polux2001@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Oops, there's a free variable in there, let me fix it:<div><br></div><div><div class="m_3166737832714793295gmail_msg" style="color:rgb(33,33,33)">first f [] = Nothing</div><div class="m_3166737832714793295gmail_msg" style="color:rgb(33,33,33)">first f (x:xs) = fmap (:xs) (f x) <|> fmap (x:) (first f xs)</div></div><span class="HOEnZb"><font color="#888888"><div class="m_3166737832714793295gmail_msg" style="color:rgb(33,33,33)"><br></div><div class="m_3166737832714793295gmail_msg" style="color:rgb(33,33,33)">Paul</div></font></span></div><div class="HOEnZb"><div class="h5"><br><div class="gmail_quote"><div dir="ltr">On Fri, Apr 7, 2017 at 10:42 AM Paul Brauner <<a href="mailto:polux2001@gmail.com" target="_blank">polux2001@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr" class="m_3166737832714793295gmail_msg">Hello Haskell Cafe,<div class="m_3166737832714793295gmail_msg"><br class="m_3166737832714793295gmail_msg"></div><div class="m_3166737832714793295gmail_msg">I had to write the following function and I was wondering if it (or its generalization to Alternative or Traversable) was exposed by some library under a different name:</div><div class="m_3166737832714793295gmail_msg"><br class="m_3166737832714793295gmail_msg"></div><div class="m_3166737832714793295gmail_msg"><div class="m_3166737832714793295gmail_msg">first [] = Nothing</div><div class="m_3166737832714793295gmail_msg">first (t:ts) = fmap (:ts) (s t) <|> fmap (t:) (first ts)</div></div><div class="m_3166737832714793295gmail_msg"><br class="m_3166737832714793295gmail_msg"></div><div class="m_3166737832714793295gmail_msg">Somehow it is to "traverse" as "any" is to "all".</div><div class="m_3166737832714793295gmail_msg"><br class="m_3166737832714793295gmail_msg"></div><div class="m_3166737832714793295gmail_msg">Cheers,</div><div class="m_3166737832714793295gmail_msg">Paul</div></div></blockquote></div>
</div></div><br>______________________________<wbr>_________________<br>
Haskell-Cafe mailing list<br>
To (un)subscribe, modify options or view archives go to:<br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-<wbr>bin/mailman/listinfo/haskell-<wbr>cafe</a><br>
Only members subscribed via the mailman list are allowed to post.<br></blockquote></div><br></div>