From 620813b889234c9af20b1522c23333f245cee2fd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 5 Oct 2021 21:26:11 -0400 Subject: [PATCH] minor optimisation --- Types/Key.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)