Commit 2565ba31 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-02-21 13:35:18 by simonpj]

Use old-style foreign import for bkwd compatibility
parent 84ed91ab
{-# OPTIONS -fglasgow-exts #-}
------------------------------------------------------------------------
-- $Id: Main.hs,v 1.45 2003/02/11 04:32:06 sof Exp $
-- $Id: Main.hs,v 1.46 2003/02/21 13:35:18 simonpj Exp $
--
-- Program for converting .hsc files to .hs files, by converting the
-- file into a C program which is run to generate the Haskell source.
......@@ -811,7 +811,7 @@ getExecDir cmd
where
len = 2048::Int -- Plenty, PATH_MAX is 512 under Win32.
foreign import stdcall unsafe "GetModuleFileNameA"
foreign import stdcall "GetModuleFileNameA" unsafe
getModuleFileName :: Ptr () -> CString -> Int -> IO Int32
#else
......
Markdown is supported
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