diff options
Diffstat (limited to 'Annex/VariantFile.hs')
| -rw-r--r-- | Annex/VariantFile.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Annex/VariantFile.hs b/Annex/VariantFile.hs index 17658a9c6..8365073d5 100644 --- a/Annex/VariantFile.hs +++ b/Annex/VariantFile.hs @@ -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 |