From: Ian Lynagh <igloo@earth.li>
Date: Wed, 23 Mar 2011 23:49:06 +0000 (+0000)
Subject: Work around a limitation in the hsc2hs cross-compilation mode
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=6abdb1cebbb6f0f0b492ba98907056d11064bc83

Work around a limitation in the hsc2hs cross-compilation mode
---

diff --git a/GHC/Event/Poll.hsc b/GHC/Event/Poll.hsc
index 82acc62..e34b47e 100644
--- a/GHC/Event/Poll.hsc
+++ b/GHC/Event/Poll.hsc
@@ -107,15 +107,24 @@ data PollFd = PollFd {
 newtype Event = Event CShort
     deriving (Eq, Show, Num, Storable, Bits)
 
+-- We have to duplicate the whole enum like this in order for the
+-- hsc2hs cross-compilation mode to work
+#ifdef POLLRDHUP
 #{enum Event, Event
  , pollIn    = POLLIN
  , pollOut   = POLLOUT
-#ifdef POLLRDHUP
  , pollRdHup = POLLRDHUP
-#endif
  , 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 .|.