diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-14 20:26:40 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-14 20:26:40 +0000 |
| commit | 9181d6e98088505d25703b6fbd753b449ca8e5a8 (patch) | |
| tree | 3fe3bdef99984f6fa610ee8b1e209e61ecc41fdf /compiler/utils | |
| parent | a8624a9d185bd3d08d318596e134042224859a6b (diff) | |
| download | haskell-9181d6e98088505d25703b6fbd753b449ca8e5a8.tar.gz | |
Remove some ifdeffery
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Util.lhs | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index 217a4503c7..9bae07fc0d 100644 --- a/compiler/utils/Util.lhs +++ b/compiler/utils/Util.lhs @@ -6,7 +6,7 @@ \begin{code} module Util ( - debugIsOn, isWindowsHost, + debugIsOn, isWindowsHost, isWindowsTarget, isDarwinTarget, -- general list processing zipEqual, zipWithEqual, zipWith3Equal, zipWith4Equal, @@ -124,6 +124,20 @@ isWindowsHost = True #else isWindowsHost = False #endif + +isWindowsTarget :: Bool +#ifdef mingw32_TARGET_OS +isWindowsTarget = True +#else +isWindowsTarget = False +#endif + +isDarwinTarget :: Bool +#ifdef darwin_TARGET_OS +isDarwinTarget = True +#else +isDarwinTarget = False +#endif \end{code} %************************************************************************ |