Move Thread Model into Common

chandlr.cabal

@@ -76,7 +76,7 @@ executable chandlr
                       Common.Component.ThreadView
                       Component.Thread.Files
                       Component.Thread.Intro
-                      Component.Thread.Model
+                      Common.Component.Thread.Model
                       Component.Thread.Embed
                       Common.Component.BodyRender
                       Common.FrontEnd.Routes

src/Common

@@ -1 +1 @@
-Subproject commit 5a418494d53a23792a458f85d7aa397928786e3b
+Subproject commit b027379d274c8f9b42ae161545bed368b9e800c3

src/Component/Thread/Model.hs

@@ -1,17 +0,0 @@
-module Component.Thread.Model where
-
-import GHCJS.DOM.Types (JSString)
-import Common.Network.SiteType (Site)
-import Common.Network.PostType (Post)
-import Parsing.PostPartType (PostPart)
-import Data.Time.Clock (UTCTime)
-
-type PostWithBody = (Post, [ PostPart ])
-
-data Model = Model
-  { site :: Site
-  , media_root :: JSString
-  , post_bodies :: [ PostWithBody ]
-  , current_time :: UTCTime
-  } deriving Eq
-

src/Parsing/BodyParser.hs

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