@@ -132,8 +132,7 @@ new = liftM2 EPoll epollCreate (A.new 64) set :: EPoll -> CInt -> [E.Event] -> IO () set ep fd events = - with e $ \ePtr -> - epollControl (epollEpfd ep) controlOpAdd fd ePtr + with e $ epollControl (epollEpfd ep) controlOpAdd fd where e = Event ets fd ets = combineEventTypes (map fromEvent events) src/System/Event/EPoll.hsc a2ef202325df1e414839c2e5edff678d1f0ab6a4 Brian Lewis brian@lorf.org http://github.com/tibbe/event/commit/8b1f318ed64343fbeaaa56be4d553d0739e3eb17 8b1f318ed64343fbeaaa56be4d553d0739e3eb17 2009-08-04T13:50:36-07:00 2009-08-04T13:50:36-07:00 hlint eta reduce 903f87f0be64d8c5a2a5c9d75f626c05e990002b Brian Lewis brian@lorf.org