voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, fixed? encoding

This commit is contained in:
Dmitry Zuikov 2024-04-03 17:21:56 +03:00
parent a66670d580
commit 12dc7ff031
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-peer/app/Browser/Root.hs
View File

@ -17,6 +17,8 @@ import Data.Maybe
import Lucid (Html,HtmlT,toHtml,toHtmlRaw)
import Lucid.Html5 hiding (for_)
import Data.Text qualified as Text
import Data.Text.Lazy.Encoding as TLE
import Data.Text.Lazy qualified as TL
import Text.InterpolatedString.Perl6 (q)
import Data.ByteString.Lazy.Char8 qualified as LBS
import System.FilePath
@ -66,7 +68,7 @@ button.search svg {
body, html {
margin: 0;
height: 100%;
font-size: 16px;
font-size: 18px;
}
@ -363,9 +365,9 @@ pluginPage api method' = do
<&> join
<&> fromMaybe mempty
let str = LBS.unpack r
let str = TLE.decodeUtf8 r & TL.unpack
let stripped = extractBodyHtml str
let stripped = extractBodyHtml str & TL.pack & TLE.encodeUtf8
rootPage $ do