diff --git a/Distribution/Simple/Build/PathsModule.hs b/Distribution/Simple/Build/PathsModule.hs index b4d69a04bf3cf34b2fa1a80e150427d546647a8b..4a569c2ac4be137011f504531ae3b91a2afef22a 100644 --- a/Distribution/Simple/Build/PathsModule.hs +++ b/Distribution/Simple/Build/PathsModule.hs @@ -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"++