mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove unused function

Browse source
This commit is contained in:
Joey Hess 2021-08-10 20:04:17 -04:00
parent d424f43116
commit a38b724bfa
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Utility/FileSystemEncoding.hs
View file

@ -11,7 +11,6 @@
module Utility.FileSystemEncoding ( module Utility.FileSystemEncoding (
useFileSystemEncoding, useFileSystemEncoding,
fileEncoding, fileEncoding,
withFilePath,
RawFilePath, RawFilePath,
fromRawFilePath, fromRawFilePath,
toRawFilePath, toRawFilePath,
@ -81,14 +80,6 @@ fileEncoding h = hSetEncoding h =<< Encoding.getFileSystemEncoding
fileEncoding h = hSetEncoding h Encoding.utf8 fileEncoding h = hSetEncoding h Encoding.utf8
#endif #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. {- Encodes a FilePath into a String, applying the filesystem encoding.
- -
- There are very few things it makes sense to do with such an encoded - There are very few things it makes sense to do with such an encoded