minor optimisation

This commit is contained in:
Joey Hess 2021-10-05 21:26:11 -04:00
parent 68b4fc6018
commit 620813b889
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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)