projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-14 17:01:02 by ross]
[ghc-base.git]
/
System
/
Info.hs
diff --git
a/System/Info.hs
b/System/Info.hs
index
adcfe79
..
02cd45d
100644
(file)
--- a/
System/Info.hs
+++ b/
System/Info.hs
@@
-2,20
+2,20
@@
-- |
-- Module : System.Info
-- Copyright : (c) The University of Glasgow 2001
-- |
-- 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 : experimental
-- Portability : portable
--
--
-- Maintainer : libraries@haskell.org
-- Stability : experimental
-- Portability : portable
--
--- $Id: Info.hs,v 1.3 2002/04/24 16:31:45 simonmar Exp $
---
-- Misc information about the characteristics of the host
-- 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"
#include "MachDeps.h"
+#endif
module System.Info
(
module System.Info
(
@@
-25,8
+25,15
@@
module System.Info
import Prelude
import Prelude
+#ifndef __NHC__
+
arch :: String
arch = HOST_ARCH
os :: String
os = HOST_OS
arch :: String
arch = HOST_ARCH
os :: String
os = HOST_OS
+
+#else
+os,arch ::String
+#include "OSInfo.hs"
+#endif