SHAnE backends are now smarter about composite extensions, such as .tar.gz Closes: #680450

1 files changed, 9 insertions, 8 deletions

diff --git a/Backend/SHA.hs b/Backend/SHA.hs
index 7abbf8035..95ce4a770 100644
--- a/Backend/SHA.hs
+++ b/Backend/SHA.hs
@@ -97,16 +97,17 @@ keyValueE :: SHASize -> KeySource -> Annex (Maybe Key)
 keyValueE size source = keyValue size source >>= maybe (return Nothing) addE
 	where
 		addE k = return $ Just $ k
-			{ keyName = keyName k ++ extension
+			{ keyName = keyName k ++ selectExtension (keyFilename source)
 			, keyBackendName = shaNameE size
 			}
-		naiveextension = takeExtension $ keyFilename source
-		extension
-			-- long or newline containing extensions are 
-			-- probably not really an extension
-			| length naiveextension > 6 ||
-			  '\n' `elem` naiveextension = ""
-			| otherwise = naiveextension
+
+selectExtension :: FilePath -> String
+selectExtension = join "." . reverse . take 2 . takeWhile shortenough .
+	reverse . split "." . takeExtensions
+	where
+		shortenough e
+			| '\n' `elem` e = False -- newline in extension?!
+			| otherwise = length e <= 4 -- long enough for "jpeg"
 
 {- A key's checksum is checked during fsck. -}
 checkKeyChecksum :: SHASize -> Key -> FilePath -> Annex Bool