remove unused function

diff --git a/Utility/FileSystemEncoding.hs b/Utility/FileSystemEncoding.hs
index 1f7c76be94100e8ecea0dcb4b228cdb911017be3..4690d5fa63c759d611222e9d1d3324a143fe6027 100644 (file)
--- a/Utility/FileSystemEncoding.hs
+++ b/Utility/FileSystemEncoding.hs
@@ -11,7 +11,6 @@
 module Utility.FileSystemEncoding (
        useFileSystemEncoding,
        fileEncoding,
-       withFilePath,
        RawFilePath,
        fromRawFilePath,
        toRawFilePath,
@@ -81,14 +80,6 @@ fileEncoding h = hSetEncoding h =<< Encoding.getFileSystemEncoding
 fileEncoding h = hSetEncoding h Encoding.utf8
 #endif
 
-{- Marshal a Haskell FilePath into a NUL terminated C string using temporary
- - storage. The FilePath is encoded using the filesystem encoding,
- - reversing the decoding that should have been done when the FilePath
- - was obtained. -}
-withFilePath :: FilePath -> (CString -> IO a) -> IO a
-withFilePath fp f = Encoding.getFileSystemEncoding
-       >>= \enc -> GHC.withCString enc fp f
-
 {- Encodes a FilePath into a String, applying the filesystem encoding.
  -
  - There are very few things it makes sense to do with such an encoded