diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-05-15 18:10:13 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-05-15 21:36:03 -0400 |
commit | 973180b077e60b5d12d7c57d926878d11d7f2105 (patch) | |
tree | 7d3bc5e651d330c1945c81f356b59eca90e73ea2 /Utility/FileSystemEncoding.hs | |
parent | 0d85a42333484e1acb8e4942a619087768bc62fb (diff) |
stop using MissingH for MD5
Cryptonite is faster and allocates less, and I want to get rid of
MissingH use.
Note that the new dependency on memory is free; it's a dependency of
cryptonite.
This commit was supported by the NSF-funded DataLad project.
Diffstat (limited to 'Utility/FileSystemEncoding.hs')
-rw-r--r-- | Utility/FileSystemEncoding.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Utility/FileSystemEncoding.hs b/Utility/FileSystemEncoding.hs index ae3bd35d7..785b078ef 100644 --- a/Utility/FileSystemEncoding.hs +++ b/Utility/FileSystemEncoding.hs @@ -12,7 +12,6 @@ module Utility.FileSystemEncoding ( useFileSystemEncoding, fileEncoding, withFilePath, - md5FilePath, decodeBS, encodeBS, decodeW8, @@ -27,7 +26,6 @@ import qualified GHC.IO.Encoding as Encoding import Foreign.C import System.IO import System.IO.Unsafe -import qualified Data.Hash.MD5 as MD5 import Data.Word import Data.Bits.Utils import Data.List @@ -101,10 +99,6 @@ _encodeFilePath fp = unsafePerformIO $ do GHC.withCString enc fp (GHC.peekCString Encoding.char8) `catchNonAsync` (\_ -> return fp) -{- Encodes a FilePath into a Md5.Str, applying the filesystem encoding. -} -md5FilePath :: FilePath -> MD5.Str -md5FilePath = MD5.Str . _encodeFilePath - {- Decodes a ByteString into a FilePath, applying the filesystem encoding. -} decodeBS :: L.ByteString -> FilePath #ifndef mingw32_HOST_OS |