From b1adf99147ef052acf8e2b84604a0ff29882c290 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Mon, 12 Dec 2022 17:14:27 +0100
Subject: [PATCH] chore(avs): add newlines to results of avs test queries

---
 src/Handler/Admin/Avs.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Admin/Avs.hs b/src/Handler/Admin/Avs.hs
index d455788ae..29b96ba2f 100644
--- a/src/Handler/Admin/Avs.hs
+++ b/src/Handler/Admin/Avs.hs
@@ -104,7 +104,7 @@ postAdminAvsR = do
             res <- avsQueryPerson fr
             case res of
               Left  err -> return . Just $ tshow err
-              Right jsn -> return . Just $ tshow jsn
+              Right jsn -> return . Just $ Text.replace "},Avs" "},\n Avs" $ tshow jsn
       mbPerson <- formResultMaybe presult procFormPerson
 
       ((sresult, swidget), senctype) <- runFormPost $ makeAvsStatusForm Nothing
@@ -113,7 +113,7 @@ postAdminAvsR = do
             res <- avsQueryStatus fr
             case res of
               Left err -> return . Just $ tshow err
-              Right jsn -> return . Just $ tshow jsn
+              Right jsn -> return . Just $ Text.replace "},Avs" "},\n Avs" $ tshow jsn
       mbStatus <- formResultMaybe sresult procFormStatus
 
       ((crUsrRes, crUsrWgt), crUsrEnctype) <- runFormPost $ identifyForm FIDAvsCreateUser $ \html ->