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

Move Parsing.PostPartType to Common

This commit is contained in:
towards-a-new-leftypol 2024-03-06 00:04:44 -05:00
parent f71fd65a8a
commit 705beb10ac
4 changed files with 3 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
chandlr.cabal
View File

@ -84,7 +84,7 @@ executable chandlr
Parsing.BodyParser Parsing.BodyParser
Parsing.QuoteLinkParser Parsing.QuoteLinkParser
Parsing.EmbedParser Parsing.EmbedParser
Parsing.PostPartType Common.Parsing.PostPartType
Common.Component.TimeControl Common.Component.TimeControl
Component.Search Component.Search
Common.Component.Search.SearchTypes Common.Component.Search.SearchTypes

2
src/Common

@ -1 +1 @@
Subproject commit b027379d274c8f9b42ae161545bed368b9e800c3 Subproject commit 3abd4f9f772e864b5e9e1b44a07909bb7d74423b

2
src/Parsing/BodyParser.hs
View File

@ -32,7 +32,7 @@ import Miso.String (fromMisoString)
import qualified Common.Network.PostType as Post import qualified Common.Network.PostType as Post
import Common.Component.Thread.Model (PostWithBody) import Common.Component.Thread.Model (PostWithBody)
import Parsing.PostPartType import Common.Parsing.PostPartType
import Parsing.QuoteLinkParser import Parsing.QuoteLinkParser

26
src/Parsing/PostPartType.hs
View File

@ -1,26 +0,0 @@
module Parsing.PostPartType where
import GHCJS.DOM.Types (JSString)
import Text.Parsec (ParseError)
import Parsing.QuoteLinkParser (ParsedURL)
data PostPart
= SimpleText JSString
| PostedUrl JSString
| Skip
| Quote (Either ParseError ParsedURL)
-- Quotes don't seem to be able to be spoilered
-- board links (which appear as quotes but start with >>>) break the tag
| GreenText [ PostPart ]
| OrangeText [ PostPart ]
| RedText [ PostPart ]
| Spoiler [ PostPart ]
-- you can't seem to spoiler greentext
| Bold [ PostPart ]
| Underlined [ PostPart ]
| Italics [ PostPart ]
| Strikethrough [ PostPart ]
deriving (Show, Eq)