aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsof <unknown>2004-08-03 19:45:30 +0000
committersof <unknown>2004-08-03 19:45:30 +0000
commit4d6f01d8d6033dbd8111fe83920b0b1af432ae46 (patch)
treead69dfccdc3bda9cdc75d60fd1a259784efa906f
parent919c47c69a5f14c95e91728cc2b2cdb4437b2ee0 (diff)
[haddock @ 2004-08-03 19:45:30 by sof]
ffi wibble
-rw-r--r--src/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs
index a0126fa3..5d7e3df7 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1146,7 +1146,7 @@ getBaseDir = do let len = (2048::Int) -- plenty, PATH_MAX is 512 under Win32.
where
rootDir s = reverse (dropList "/haddock.exe" (reverse (normalisePath s)))
-foreign import stdcall "GetModuleFileNameA" unsafe
+foreign import stdcall unsafe "GetModuleFileNameA"
getModuleFileName :: Ptr () -> CString -> Int -> IO Int32
#else
getBaseDir :: IO (Maybe String) = do return Nothing