@@ -109,7 +109,7 @@ metaValueToJSON blockWriter inlineWriter (MetaMap metamap) = toJSON <$>
109metaValueToJSON blockWriter inlineWriter (MetaList xs) = toJSON <$>
109metaValueToJSON blockWriter inlineWriter (MetaList xs) = toJSON <$>
110 Traversable.mapM (metaValueToJSON blockWriter inlineWriter) xs
110 Traversable.mapM (metaValueToJSON blockWriter inlineWriter) xs
111metaValueToJSON _ _ (MetaBool b) = return $ toJSON b
111metaValueToJSON _ _ (MetaBool b) = return $ toJSON b
112−metaValueToJSON _ inlineWriter (MetaString s@('0':_)) =
112+metaValueToJSON _ inlineWriter (MetaString s@('0':_:_)) =
113 -- don't treat string with leading 0 as string (#5479)
113 -- don't treat string with leading 0 as string (#5479)
114 toJSON <$> inlineWriter (Builder.toList (Builder.text s))
114 toJSON <$> inlineWriter (Builder.toList (Builder.text s))
115metaValueToJSON _ inlineWriter (MetaString s) =
115metaValueToJSON _ inlineWriter (MetaString s) =