follow change in System.Posix.Internals.c_open

523c7698 · Simon Marlow · 6cb71745 · 523c7698
Commit 523c7698 authored Jun 22, 2009 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

utils/ghc-pkg/Main.hs utils/ghc-pkg/Main.hs +5 -1

No files found.
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -1342,8 +1342,12 @@ openNewFile dir template = do

    oflags = rw_flags .|. o_EXCL

+#if __GLASGOW_HASKELL__ < 611
+    withFilePath = withCString
+#endif
+
    findTempName x = do
-      fd <- withCString filepath $ \ f ->
+      fd <- withFilePath filepath $ \ f ->
              c_open f oflags 0o666
      if fd < 0
       then do