aboutsummaryrefslogtreecommitdiff
path: root/devel/hs-hmake/files/patch-src_hmake_PackageConfig.hs
diff options
context:
space:
mode:
Diffstat (limited to 'devel/hs-hmake/files/patch-src_hmake_PackageConfig.hs')
-rw-r--r--devel/hs-hmake/files/patch-src_hmake_PackageConfig.hs22
1 files changed, 22 insertions, 0 deletions
diff --git a/devel/hs-hmake/files/patch-src_hmake_PackageConfig.hs b/devel/hs-hmake/files/patch-src_hmake_PackageConfig.hs
new file mode 100644
index 000000000000..ed21f08cac62
--- /dev/null
+++ b/devel/hs-hmake/files/patch-src_hmake_PackageConfig.hs
@@ -0,0 +1,22 @@
+--- src/hmake/PackageConfig.hs.orig 2008-04-25 10:28:08.000000000 +0000
++++ src/hmake/PackageConfig.hs 2009-07-16 07:57:07.000000000 +0000
+@@ -55,7 +55,7 @@
+ -- ghcpkg <- runAndReadStdout
+ -- ("echo `" ++ ghc ++ " --print-libdir`/bin/ghc-pkg")
+ -- pkgs <- runAndReadStdout (ghcpkg++" --list-packages")
+- pkgs <- runAndReadStdout (ghcpkg++" -l")
++ pkgs <- runAndReadStdout (ghcpkg++" list")
+ let (ok,bad) = partition (\p-> elemBy versionMatch p (deComma pkgs))
+ packages
+ when (not (null bad))
+@@ -63,8 +63,8 @@
+ ++concat (intersperse ", " bad)
+ ++" not available (according to ghc-pkg)"))
+ idirs <- mapM (\p-> runAndReadStdout
+- (ghcpkg++" --show-package="++p
+- ++" --field=import_dirs"))
++ (ghcpkg++" field "++p
++ ++" import_dirs"))
+ ok
+ return (pkgDirs libdir idirs)
+ where