From 1cf1b56412c277b145bd9a14c278576796c02062 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 12 Apr 2003 16:38:23 +0000
Subject: [PATCH] [project @ 2003-04-12 16:38:23 by panne] Typo :-}

---
 ghc/compiler/main/SysTools.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4