From: panne <unknown>
Date: Sat, 12 Apr 2003 16:38:23 +0000 (+0000)
Subject: [project @ 2003-04-12 16:38:23 by panne]
X-Git-Tag: Approx_11550_changesets_converted~964
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1cf1b56412c277b145bd9a14c278576796c02062;p=ghc-hetmet.git

[project @ 2003-04-12 16:38:23 by panne]
Typo :-}
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 82967d0..5d2c180 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -853,7 +853,7 @@ getExecDir :: IO (Maybe String) = do return Nothing
 foreign import ccall "_getpid" unsafe getProcessID :: IO Int -- relies on Int == Int32 on Windows
 #elif __GLASGOW_HASKELL__ > 504
 getProcessID :: IO Int
-getProcessID = System.Posix.Internals..c_getpid >>= return . fromIntegral
+getProcessID = System.Posix.Internals.c_getpid >>= return . fromIntegral
 #else
 getProcessID :: IO Int
 getProcessID = Posix.getProcessID