diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-06-11 00:51:53 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-06-16 06:26:38 -0400 |
| commit | db313f987f353cd2691b42c85866a62f5c0a903c (patch) | |
| tree | f34dbc3201cf2397d0509d6d41745da9d59af92c | |
| parent | 4138bf868534f54d47643c0aa38d4dce89135501 (diff) | |
| download | haskell-db313f987f353cd2691b42c85866a62f5c0a903c.tar.gz | |
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.
| -rw-r--r-- | libraries/base/GHC/Event/Poll.hsc | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/libraries/base/GHC/Event/Poll.hsc b/libraries/base/GHC/Event/Poll.hsc index 1dafd601ec..61315b370c 100644 --- a/libraries/base/GHC/Event/Poll.hsc +++ b/libraries/base/GHC/Event/Poll.hsc @@ -162,24 +162,12 @@ newtype Event = Event CShort , 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 , pollIn = POLLIN , pollOut = POLLOUT - , pollRdHup = POLLRDHUP , pollErr = POLLERR , pollHup = POLLHUP } -#else -#{enum Event, Event - , pollIn = POLLIN - , pollOut = POLLOUT - , pollErr = POLLERR - , pollHup = POLLHUP - } -#endif fromEvent :: E.Event -> Event fromEvent e = remap E.evtRead pollIn .|. |