X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FDevice.hs;h=5010fefc5b8c125bf936b4e0928266e052689a31;hb=5bea16bf551dd337725af4a3a7640641eb11f5e9;hp=ab91bc0d7ca752a4eaf1ef7255d5713a1bf61d7e;hpb=7b0e8c5c95b3edd752a283f59d7a89688eaca276;p=ghc-base.git

diff --git a/GHC/IO/Device.hs b/GHC/IO/Device.hs
index ab91bc0..5010fef 100644
--- a/GHC/IO/Device.hs
+++ b/GHC/IO/Device.hs
@@ -21,6 +21,7 @@ module GHC.IO.Device (
     SeekMode(..)
   ) where  
 
+#ifdef __GLASGOW_HASKELL__
 import GHC.Base
 import GHC.Word
 import GHC.Arr
@@ -32,6 +33,13 @@ import Data.Maybe
 import GHC.Num
 import GHC.IO
 import {-# SOURCE #-} GHC.IO.Exception ( unsupportedOperation )
+#endif
+#ifdef __NHC__
+import Foreign
+import Ix
+import Control.Exception.Base
+unsupportedOperation = userError "unsupported operation"
+#endif
 
 -- | A low-level I/O provider where the data is bytes in memory.
 class RawIO a where