paul/lisa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Wrap long debug info strings

Browse Source
This commit is contained in:
Paul Brinkmeier 2022-09-08 13:50:58 +02:00
parent 48dab03326
commit b9f7aa088b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Lisa/Views.hs
View File

@ -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