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