minor optimisation

diff --git a/Types/Key.hs b/Types/Key.hs
index 7e1b59cdc6c85353115a9a978110d2cece638e58..014883808a0937407690499c8b2de18bf041a8ab 100644 (file)
--- 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)