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.List (intersperse)
import Data.Text (Text, isInfixOf) import Data.Text (Text, isInfixOf)
import Network.Wai (Request) 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 Text.Blaze.Html5.Attributes hiding (form)
import Lisa.Types (Session) import Lisa.Types (Session)
@ -53,10 +53,10 @@ viewDebug request session = do
h1 $ text "Debuginformation" h1 $ text "Debuginformation"
fieldset $ do fieldset $ do
legend "Request" legend "Request"
pre $ string $ show request pre ! style (textValue "white-space: pre-wrap") $ string $ show request
fieldset $ do fieldset $ do
legend "Session" legend "Session"
pre $ string $ show session pre ! style (textValue "white-space: pre-wrap") $ string $ show session
viewSqueakError :: SqueakError -> Html viewSqueakError :: SqueakError -> Html
viewSqueakError err = string $ show err viewSqueakError err = string $ show err