From a38b724bfae767bd651d715d584eb222a6d06ddd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 10 Aug 2021 20:04:17 -0400 Subject: [PATCH] remove unused function --- Utility/FileSystemEncoding.hs | 9 --------- 1 file changed, 9 deletions(-) diff --git a/Utility/FileSystemEncoding.hs b/Utility/FileSystemEncoding.hs index 1f7c76be94..4690d5fa63 100644 --- 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