From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 11 Aug 2021 00:04:17 +0000 (-0400)
Subject: remove unused function
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~2^2^2~65^2~118
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a38b724bfae767bd651d715d584eb222a6d06ddd;p=git-annex.git

remove unused function
---

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