From a314a8dfd021667a3e37b672ffb36727a31157cd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Mar 2022 18:22:38 -0400 Subject: [PATCH] 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. --- Command/Info.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.5