From: Ian Lynagh <igloo@earth.li>
Date: Mon, 5 Jan 2009 10:20:20 +0000 (+0000)
Subject: Fix build when we have HTYPE_TCFLAG_T
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fdb4306d5c137ddefd3438cc76cfeb7490e75407;p=ghc-base.git

Fix build when we have HTYPE_TCFLAG_T
---

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 64e4f20..c4d9b19 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -35,7 +35,10 @@ import Foreign.C
 
 import Data.Bits
 import Data.Maybe
+
+#if !defined(HTYPE_TCFLAG_T)
 import System.IO.Error
+#endif
 
 #if __GLASGOW_HASKELL__
 import GHC.Base