Commit 1cf1b564 authored by panne's avatar panne
Browse files

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

Typo :-}
parent babcfec5
...@@ -853,7 +853,7 @@ getExecDir :: IO (Maybe String) = do return Nothing ...@@ -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 foreign import ccall "_getpid" unsafe getProcessID :: IO Int -- relies on Int == Int32 on Windows
#elif __GLASGOW_HASKELL__ > 504 #elif __GLASGOW_HASKELL__ > 504
getProcessID :: IO Int getProcessID :: IO Int
getProcessID = System.Posix.Internals..c_getpid >>= return . fromIntegral getProcessID = System.Posix.Internals.c_getpid >>= return . fromIntegral
#else #else
getProcessID :: IO Int getProcessID :: IO Int
getProcessID = Posix.getProcessID getProcessID = Posix.getProcessID
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment