From 4d6f01d8d6033dbd8111fe83920b0b1af432ae46 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 3 Aug 2004 19:45:30 +0000
Subject: [haddock @ 2004-08-03 19:45:30 by sof] ffi wibble

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3