Commit 2da1e48c authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a type signature for getPrefixDirRel on Windows

parent 7eb960f9
......@@ -191,6 +191,7 @@ pkgPathEnvVar pkg_descr var =
get_prefix_win32 :: String
get_prefix_win32 =
"getPrefixDirRel :: FilePath -> IO FilePath\n"++
"getPrefixDirRel dirRel = try_size 2048 -- plenty, PATH_MAX is 512 under Win32.\n"++
" where\n"++
" try_size size = allocaArray (fromIntegral size) $ \\buf -> do\n"++
......
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