From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 2 Mar 2022 22:22:38 +0000 (-0400)
Subject: add back lost packString
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~2^2^2~53^2~175
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a314a8dfd021667a3e37b672ffb36727a31157cd;p=git-annex.git

add back lost packString

The patch that removed it did not break anything, since the strings it's
used on are all ASCII not unicode. But I like making sure to use
packString everywhere just in case the code later changes in a way that
needs it.
---

diff --git a/Command/Info.hs b/Command/Info.hs
index 5ef3ffbb97..f2c4761402 100644
--- a/Command/Info.hs
+++ b/Command/Info.hs
@@ -446,7 +446,7 @@ transfer_list = stat desc $ nojson $ lift $ do
 		, maybe (fromUUID $ transferUUID t) Remote.name $
 			M.lookup (transferUUID t) uuidmap
 		]
-	jsonify t i = object $
+	jsonify t i = object $ map (\(k, v) -> (textKey (packString k), v)) $
 		[ ("transfer", toJSON' (formatDirection (transferDirection t)))
 		, ("key", toJSON' (transferKey t))
 		, ("file", toJSON' (fromRawFilePath <$> afile))