Commit db313f98 authored by Ben Gamari's avatar Ben Gamari 🐢 Committed by Marge Bot

base/Event/Poll: Drop POLLRDHUP enum item

Previously the Event enumeration produced by hsc2hs would sometimes
include a currently-unused POLLRDHUP item. This unused binding would
result in a build failure. Drop it.
parent 4138bf86
...@@ -162,24 +162,12 @@ newtype Event = Event CShort ...@@ -162,24 +162,12 @@ newtype Event = Event CShort
, FiniteBits -- ^ @since 4.7.0.0 , FiniteBits -- ^ @since 4.7.0.0
) )
-- We have to duplicate the whole enum like this in order for the
-- hsc2hs cross-compilation mode to work
#if defined(POLLRDHUP)
#{enum Event, Event #{enum Event, Event
, pollIn = POLLIN , pollIn = POLLIN
, pollOut = POLLOUT , pollOut = POLLOUT
, pollRdHup = POLLRDHUP
, pollErr = POLLERR , pollErr = POLLERR
, pollHup = POLLHUP , pollHup = POLLHUP
} }
#else
#{enum Event, Event
, pollIn = POLLIN
, pollOut = POLLOUT
, pollErr = POLLERR
, pollHup = POLLHUP
}
#endif
fromEvent :: E.Event -> Event fromEvent :: E.Event -> Event
fromEvent e = remap E.evtRead pollIn .|. fromEvent e = remap E.evtRead pollIn .|.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment