X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=System%2FInfo.hs;h=02cd45de0bd2506ed9b3077a4b1ff7696a3957de;hb=f00fe3e6cb628f3bfac049275660f0365daa3733;hp=452cec5c8dd641e68f71bd74194108e2272e6ecf;hpb=f7a485978f04e84b086f1974b88887cc72d832d0;p=haskell-directory.git

diff --git a/System/Info.hs b/System/Info.hs
index 452cec5..02cd45d 100644
--- a/System/Info.hs
+++ b/System/Info.hs
@@ -13,7 +13,9 @@
 --
 -----------------------------------------------------------------------------
 
+#ifndef __NHC__
 #include "MachDeps.h"
+#endif
 
 module System.Info
    (
@@ -23,8 +25,15 @@ module System.Info
 
 import Prelude
 
+#ifndef __NHC__
+
 arch :: String
 arch = HOST_ARCH
 
 os :: String
 os = HOST_OS
+
+#else
+os,arch ::String
+#include "OSInfo.hs"
+#endif