<div dir="ltr">Oops, there's a free variable in there, let me fix it:<div><br></div><div><div class="gmail_msg" style="color:rgb(33,33,33)">first f [] = Nothing</div><div class="gmail_msg" style="color:rgb(33,33,33)">first f (x:xs) = fmap (:xs) (f x) <|> fmap (x:) (first f xs)</div></div><div class="gmail_msg" style="color:rgb(33,33,33)"><br></div><div class="gmail_msg" style="color:rgb(33,33,33)">Paul</div></div><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">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="gmail_msg">Hello Haskell Cafe,<div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_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="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><div class="gmail_msg">first [] = Nothing</div><div class="gmail_msg">first (t:ts) = fmap (:ts) (s t) <|> fmap (t:) (first ts)</div></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">Somehow it is to "traverse" as "any" is to "all".</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">Cheers,</div><div class="gmail_msg">Paul</div></div></blockquote></div>