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

Move Network.PostType to Common

This commit is contained in:
towards-a-new-leftypol 2024-03-05 21:38:48 -05:00
parent ceebf6df60
commit 9588a24cb3
9 changed files with 11 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
chandlr.cabal
View File

@ -71,7 +71,7 @@ executable chandlr
Common.Network.CatalogPostType Common.Network.CatalogPostType
Network.BoardType Network.BoardType
Network.SiteType Network.SiteType
Network.PostType Common.Network.PostType
Network.ThreadType Network.ThreadType
Common.Component.ThreadView Common.Component.ThreadView
Component.Thread.Files Component.Thread.Files

2
src/Common

@ -1 +1 @@
Subproject commit cbc894bcd57f6c693c0bf62df4e52fdbf076e840 Subproject commit a97152853d42a4d334d6ab659f9a38792d648cda

4
src/Component/Thread/Embed.hs
View File

@ -20,8 +20,8 @@ import Data.Maybe (fromJust)
import Data.Text (unpack) import Data.Text (unpack)
import Data.JSString (JSString, pack) import Data.JSString (JSString, pack)
import qualified Network.PostType as Post import qualified Common.Network.PostType as Post
import Network.PostType (Post) import Common.Network.PostType (Post)
import Parsing.EmbedParser (extractVideoId) import Parsing.EmbedParser (extractVideoId)
embed :: Post -> View a embed :: Post -> View a

4
src/Component/Thread/Files.hs
View File

@ -32,8 +32,8 @@ import Network.SiteType (Site)
import qualified Network.SiteType as Site import qualified Network.SiteType as Site
import qualified Network.BoardType as Board import qualified Network.BoardType as Board
import qualified Network.ThreadType as Thread import qualified Network.ThreadType as Thread
import qualified Network.PostType as Post import qualified Common.Network.PostType as Post
import Network.PostType (Post) import Common.Network.PostType (Post)
import Common.AttachmentType (Attachment, Dimension (..)) import Common.AttachmentType (Attachment, Dimension (..))
import qualified Common.AttachmentType as Attachment import qualified Common.AttachmentType as Attachment
import Network.Units (bytesToHumanReadable) import Network.Units (bytesToHumanReadable)

4
src/Component/Thread/Intro.hs
View File

@ -22,8 +22,8 @@ import Miso.String (toMisoString)
import Data.Time.Clock (UTCTime, diffUTCTime) import Data.Time.Clock (UTCTime, diffUTCTime)
import Data.Time.Format (formatTime, defaultTimeLocale) import Data.Time.Format (formatTime, defaultTimeLocale)
import Network.PostType (Post) import Common.Network.PostType (Post)
import qualified Network.PostType as Post import qualified Common.Network.PostType as Post
import Network.SiteType (Site) import Network.SiteType (Site)
import qualified Network.SiteType as Site import qualified Network.SiteType as Site
import Network.BoardType (Board) import Network.BoardType (Board)

2
src/Component/Thread/Model.hs
View File

@ -2,7 +2,7 @@ module Component.Thread.Model where
import GHCJS.DOM.Types (JSString) import GHCJS.DOM.Types (JSString)
import Network.SiteType (Site) import Network.SiteType (Site)
import Network.PostType (Post) import Common.Network.PostType (Post)
import Parsing.PostPartType (PostPart) import Parsing.PostPartType (PostPart)
import Data.Time.Clock (UTCTime) import Data.Time.Clock (UTCTime)

25
src/Network/PostType.hs
View File

@ -1,25 +0,0 @@
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
module Network.PostType where
import GHC.Generics
import Data.Text (Text)
import Data.Time.Clock (UTCTime)
import Data.Aeson (FromJSON, ToJSON)
import Common.AttachmentType (Attachment)
data Post = Post
{ post_id :: Integer
, board_post_id :: Integer
, creation_time :: UTCTime
, body :: Maybe Text
, subject :: Maybe Text
, name :: Maybe Text
, email :: Maybe Text
, body_search_index :: Text
, thread_id :: Integer
, embed :: Maybe Text
, attachments :: [ Attachment ]
} deriving (Show, Generic, FromJSON, ToJSON, Eq)

2
src/Network/ThreadType.hs
View File

@ -6,7 +6,7 @@ module Network.ThreadType where
import GHC.Generics import GHC.Generics
import Data.Time.Clock (UTCTime) import Data.Time.Clock (UTCTime)
import Data.Aeson (FromJSON, ToJSON) import Data.Aeson (FromJSON, ToJSON)
import Network.PostType (Post) import Common.Network.PostType (Post)
data Thread = Thread data Thread = Thread
{ thread_id :: Integer { thread_id :: Integer

2
src/Parsing/BodyParser.hs
View File

@ -29,7 +29,7 @@ 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 Network.PostType as Post import qualified Common.Network.PostType as Post
import Component.Thread.Model (PostWithBody) import Component.Thread.Model (PostWithBody)
import Parsing.PostPartType import Parsing.PostPartType