Refactor HttpContentImpl to improve readability

microsoft · Dec 10, 2024 · 160d87f · 160d87f
1 parent 16bdfbe
commit 160d87f
Showing 1 changed file with 12 additions and 9 deletions.
diff --git a/src/System Application/App/Rest Client/src/HttpContentImpl.Codeunit.al b/src/System Application/App/Rest Client/src/HttpContentImpl.Codeunit.al
@@ -197,29 +197,32 @@ codeunit 2355 "Http Content Impl."
         Json: Text;
     begin
         Json := AsText();
-        if Json <> '' then
-            if not ReturnValue.ReadFrom(AsText()) then
-                ThrowInvalidJsonException();
+        if Json = '' then
+            exit;
+        if not ReturnValue.ReadFrom(Json) then
+            ThrowInvalidJsonException();
     end;
 
     procedure AsJsonObject() ReturnValue: JsonObject
     var
         Json: Text;
     begin
         Json := AsText();
-        if Json <> '' then
-            if not ReturnValue.ReadFrom(AsText()) then
-                ThrowInvalidJsonException();
+        if Json = '' then
+            exit;
+        if not ReturnValue.ReadFrom(Json) then
+            ThrowInvalidJsonException();
     end;
 
     procedure AsJsonArray() ReturnValue: JsonArray
     var
         Json: Text;
     begin
         Json := AsText();
-        if Json <> '' then
-            if not ReturnValue.ReadFrom(AsText()) then
-                ThrowInvalidJsonException();
+        if Json = '' then
+            exit;
+        if not ReturnValue.ReadFrom(Json) then
+            ThrowInvalidJsonException();
     end;
 
     procedure SetContent(Content: Text; ContentType: Text)