get route definition to build (api still undefined)

This commit is contained in:
towards-a-new-leftypol 2024-03-06 02:32:32 -05:00
parent 42778d2028
commit 79fc9ccf2a
4 changed files with 37 additions and 3 deletions

@ -1 +1 @@
Subproject commit f619d08bdb061c515b06ef223a1b4fa14d157cf1 Subproject commit 7d521a921990b5a05d98782babc85cc6ee54eb0c

View File

@ -5,7 +5,7 @@ import Data.Proxy
import qualified Network.Wai as Wai import qualified Network.Wai as Wai
import qualified Network.Wai.Handler.Warp as Wai import qualified Network.Wai.Handler.Warp as Wai
import qualified Network.Wai.Middleware.RequestLogger as Wai import qualified Network.Wai.Middleware.RequestLogger as Wai
import qualified Servant import Servant.API
import qualified Common.FrontEnd.Routes as FE import qualified Common.FrontEnd.Routes as FE
import qualified Common.FrontEnd.Action as FE import qualified Common.FrontEnd.Action as FE

14
app/Parsing/BodyParser.hs Normal file
View File

@ -0,0 +1,14 @@
module Parsing.BodyParser
( PostPart (..)
, parsePostBody
, collectBacklinks
, Backlinks
) where
import Data.Text (Text)
import Common.Parsing.PostPartType
import Common.Parsing.PostBodyUtils
parsePostBody :: Text -> IO [ PostPart ]
parsePostBody = undefined

View File

@ -69,6 +69,25 @@ executable chandlr-server
Common.Network.CatalogPostType Common.Network.CatalogPostType
Common.Network.ClientTypes Common.Network.ClientTypes
Common.Network.HttpTypes Common.Network.HttpTypes
Common.AttachmentType
Common.Component.BodyRender
Common.Component.CatalogGrid
Common.Component.Thread.Embed
Common.Component.Thread.Files
Common.Component.Thread.Intro
Common.Component.Thread.Model
Common.Component.ThreadView
Common.Component.TimeControl
Common.Network.BoardType
Common.Network.PostType
Common.Network.SiteType
Common.Network.ThreadType
Common.Network.Units
Common.Parsing.EmbedParser
Common.Parsing.PostBodyUtils
Common.Parsing.PostPartType
Common.Parsing.QuoteLinkParser
Parsing.BodyParser
-- LANGUAGE extensions used by modules in this package. -- LANGUAGE extensions used by modules in this package.
-- other-extensions: -- other-extensions:
@ -84,7 +103,8 @@ executable chandlr-server
miso, miso,
parsec, parsec,
filepath, filepath,
containers containers,
servant
-- Directories containing source files. -- Directories containing source files.
hs-source-dirs: app hs-source-dirs: app