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-06 16:37:36 by simonmar]
[ghc-base.git]
/
System
/
Info.hs
diff --git
a/System/Info.hs
b/System/Info.hs
index
a064991
..
02cd45d
100644
(file)
--- a/
System/Info.hs
+++ b/
System/Info.hs
@@
-2,7
+2,7
@@
-- |
-- 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
--
-- Maintainer : libraries@haskell.org
-- Stability : experimental
@@
-13,7
+13,9
@@
--
-----------------------------------------------------------------------------
--
-----------------------------------------------------------------------------
+#ifndef __NHC__
#include "MachDeps.h"
#include "MachDeps.h"
+#endif
module System.Info
(
module System.Info
(
@@
-23,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