0
/
chandler-miso
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ThreadView - fix threads getting messed up when there's a post without a body

This commit is contained in:
towards-a-new-leftypol 2024-02-14 08:27:14 -05:00
parent d981c0b23f
commit 1b819fea2c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Component/ThreadView.hs
View File

@ -24,7 +24,7 @@ import Miso
, consoleLog , consoleLog
) )
import Data.Maybe (catMaybes) import Data.Text (Text)
import Miso.String (toMisoString) import Miso.String (toMisoString)
import GHCJS.DOM.Types (JSString) import GHCJS.DOM.Types (JSString)
@ -55,13 +55,17 @@ data Interface a = Interface { passAction :: Action -> a }
update :: Interface a -> Action -> Model -> Effect a Model update :: Interface a -> Action -> Model -> Effect a Model
update iface (RenderSite s) m = m { site = s } <# do update iface (RenderSite s) m = m { site = s } <# do
bodies <- mapM parsePostBody (catMaybes $ map Post.body posts) bodies <- mapM getBody (map Post.body posts)
mapM_ (consoleLog . toMisoString . show) bodies mapM_ (consoleLog . toMisoString . show) bodies
return $ passAction iface $ UpdatePostBodies $ zip posts bodies return $ passAction iface $ UpdatePostBodies $ zip posts bodies
where where
getBody :: Maybe Text -> IO [ PostPart ]
getBody Nothing = return []
getBody (Just b) = parsePostBody b
posts :: [ Post ] posts :: [ Post ]
posts = Thread.posts $ head $ Board.threads $ head $ Site.boards s posts = Thread.posts $ head $ Board.threads $ head $ Site.boards s
--update (RenderSite s) m = noEff (m { site = s }) --update (RenderSite s) m = noEff (m { site = s })
@ -139,7 +143,6 @@ reply m (post, parts) = div_
, div_ , div_
( (
[ class_ "post reply" [ class_ "post reply"
, id_ "reply_477702"
] ++ multi post ] ++ multi post
) )
[ intro post [ intro post