<div dir="ltr">On Sat, Feb 2, 2013 at 1:08 PM, Peter Jones <span dir="ltr"><<a href="mailto:mlists@pmade.com" target="_blank">mlists@pmade.com</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
The last two lines demonstrate the pattern I've been seeing. The only<br>
way I know how to remove this duplication is to move it out into a<br>
top-level function. Is that correct?<br></blockquote><div><br></div><div>You might instead wrap your hook in</div><div><br></div><div> doEvent :: (Event -> X a) -> X All</div><div> doEvent act = \e -> act e >> idHook -- or pointfree: (>> idHook) . act</div>
</div><div><br></div>-- <br><div dir="ltr"><div>brandon s allbery kf8nh sine nomine associates</div><div><a href="mailto:allbery.b@gmail.com" target="_blank">allbery.b@gmail.com</a> <a href="mailto:ballbery@sinenomine.net" target="_blank">ballbery@sinenomine.net</a></div>
<div>unix, openafs, kerberos, infrastructure, xmonad <a href="http://sinenomine.net" target="_blank">http://sinenomine.net</a></div></div>
</div>