X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FInfo.hs;h=02cd45de0bd2506ed9b3077a4b1ff7696a3957de;hb=eff5b5ab4fa292b2fd343fcdd2672a737ab0a98e;hp=b588aafb56bbff739e736b2c2301f29ac3006469;hpb=7f1f4e7a695c402ddd3a1dc2cc7114e649a78ebc;p=ghc-base.git

diff --git a/System/Info.hs b/System/Info.hs
index b588aaf..02cd45d 100644
--- a/System/Info.hs
+++ b/System/Info.hs
@@ -1,21 +1,21 @@
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  System.Info
 -- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
--- Stability   :  provisional
+-- Stability   :  experimental
 -- Portability :  portable
 --
--- $Id: Info.hs,v 1.1 2001/06/28 14:15:04 simonmar Exp $
---
 -- Misc information about the characteristics of the host 
--- architecture/machine lucky enough to run your program.
+-- architecture\/machine lucky enough to run your program.
 --
 -----------------------------------------------------------------------------
 
+#ifndef __NHC__
 #include "MachDeps.h"
+#endif
 
 module System.Info
    (
@@ -25,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