From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 6 Oct 2021 01:26:11 +0000 (-0400)
Subject: minor optimisation
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~83^2~11
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=620813b889234c9af20b1522c23333f245cee2fd;p=git-annex.git

minor optimisation
---

diff --git a/Types/Key.hs b/Types/Key.hs
index 7e1b59cdc6..014883808a 100644
--- a/Types/Key.hs
+++ b/Types/Key.hs
@@ -128,7 +128,7 @@ buildKeyData k = byteString (formatKeyVariety (keyVariety k))
 	<> 'm' ?: (integerDec . (\(CTime t) -> fromIntegral t) <$> keyMtime k)
 	<> 'S' ?: (integerDec <$> keyChunkSize k)
 	<> 'C' ?: (integerDec <$> keyChunkNum k)
-	<> sepbefore (sepbefore (byteString (S.fromShort (keyName k))))
+	<> sepbefore (sepbefore (shortByteString (keyName k)))
   where
 	sepbefore s = char7 fieldSep <> s
 	c ?: (Just b) = sepbefore (char7 c <> b)