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.
This commit is contained in:
parent
44baa7b306
commit
6dd806f1ad
11 changed files with 98 additions and 30 deletions
|
@ -9,8 +9,7 @@ module Annex.VariantFile where
|
|||
|
||||
import Annex.Common
|
||||
import Utility.FileSystemEncoding
|
||||
|
||||
import Data.Hash.MD5
|
||||
import Utility.Hash
|
||||
|
||||
variantMarker :: String
|
||||
variantMarker = ".variant-"
|
||||
|
@ -42,4 +41,4 @@ variantFile file key
|
|||
doubleconflict = variantMarker `isInfixOf` file
|
||||
|
||||
shortHash :: String -> String
|
||||
shortHash = take 4 . md5s . md5FilePath
|
||||
shortHash = take 4 . show . md5 . encodeBS
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue