minor optimisation
This commit is contained in:
parent
68b4fc6018
commit
620813b889
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue