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

Move Backlinks type from BodyParser into PostPartType module in Common

This commit is contained in:
towards-a-new-leftypol 2024-03-06 00:19:23 -05:00
parent 71a4a5829e
commit 0468c6ee10
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Common

@ -1 +1 @@
Subproject commit c8b6cfa8d17dab26db31f72a0b1b6bcbcd3d03f0
Subproject commit 738f76cb9a56cc397a7b9c1efc844fbf6622dea8

4
src/Parsing/BodyParser.hs
View File

@ -12,7 +12,6 @@ module Parsing.BodyParser
) where
import Data.Maybe (catMaybes)
import Data.Map (Map)
import qualified Data.Map as Map
import GHCJS.DOM (currentDocument)
import GHCJS.DOM.Types
@ -29,7 +28,6 @@ import GHCJS.DOM.JSFFI.Generated.DOMTokenList (contains)
import Data.Text (Text)
import Miso (consoleLog)
import Miso.String (fromMisoString)
import qualified Common.Network.PostType as Post
import Common.Component.Thread.Model (PostWithBody)
import Common.Parsing.PostPartType
@ -146,8 +144,6 @@ parseS element
= parseChildNodes element
>>= return . Strikethrough
type Backlinks = Map Integer [Post.Post]
collectBacklinks :: [PostWithBody] -> Backlinks
collectBacklinks xs = foldr insertElement Map.empty xs
where