[commit: base] master: Add newFilePath to System.Posix.Internals (b6b5fcb)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/b6b5fcbfd39a69b914f6af931856ef5af63393fc

>---------------------------------------------------------------

commit b6b5fcbfd39a69b914f6af931856ef5af63393fc
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Dec 1 22:28:50 2012 +0000

    Add newFilePath to System.Posix.Internals
    
    Needed for #7342

>---------------------------------------------------------------

 System/Posix/Internals.hs |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 5583c3b..1633a3e 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -191,20 +191,26 @@ fdGetMode fd = do
 withFilePath :: FilePath -> (CWString -> IO a) -> IO a
 withFilePath = withCWString
 
+newFilePath :: FilePath -> IO CWString
+newFilePath = newCWString
+
 peekFilePath :: CWString -> IO FilePath
 peekFilePath = peekCWString
 #else
 
 withFilePath :: FilePath -> (CString -> IO a) -> IO a
+newFilePath :: FilePath -> IO CString
 peekFilePath :: CString -> IO FilePath
 peekFilePathLen :: CStringLen -> IO FilePath
 
 #if __GLASGOW_HASKELL__
 withFilePath fp f = getFileSystemEncoding >>= \enc -> GHC.withCString enc fp f
+newFilePath fp = getFileSystemEncoding >>= \enc -> GHC.newCString enc fp
 peekFilePath fp = getFileSystemEncoding >>= \enc -> GHC.peekCString enc fp
 peekFilePathLen fp = getFileSystemEncoding >>= \enc -> GHC.peekCStringLen enc fp
 #else
 withFilePath = withCString
+newFilePath = newCString
 peekFilePath = peekCString
 peekFilePathLen = peekCStringLen
 #endif