From b9f7aa088b44833184686293bc36f327d84d722c Mon Sep 17 00:00:00 2001
From: Paul Brinkmeier <hallo@pbrinkmeier.de>
Date: Thu, 8 Sep 2022 13:50:58 +0200
Subject: [PATCH] Wrap long debug info strings
---
src/Lisa/Views.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/Lisa/Views.hs b/src/Lisa/Views.hs
index 89c6d8e..214faab 100644
--- a/src/Lisa/Views.hs
+++ b/src/Lisa/Views.hs
@@ -8,7 +8,7 @@ import Control.Monad (forM_)
import Data.List (intersperse)
import Data.Text (Text, isInfixOf)
import Network.Wai (Request)
-import Text.Blaze.Html5 hiding (map)
+import Text.Blaze.Html5 hiding (map, style)
import Text.Blaze.Html5.Attributes hiding (form)
import Lisa.Types (Session)
@@ -53,10 +53,10 @@ viewDebug request session = do
h1 $ text "Debuginformation"
fieldset $ do
legend "Request"
- pre $ string $ show request
+ pre ! style (textValue "white-space: pre-wrap") $ string $ show request
fieldset $ do
legend "Session"
- pre $ string $ show session
+ pre ! style (textValue "white-space: pre-wrap") $ string $ show session
viewSqueakError :: SqueakError -> Html
viewSqueakError err = string $ show err