29 lines
665 B
Haskell
29 lines
665 B
Haskell
module Core.HTTP ( app ) where
|
|
|
|
import Core.Types
|
|
|
|
import Core.Templates (renderIndex, renderStyle)
|
|
import Feature.Sharing.HTTP as Sharing
|
|
|
|
import Data.Maybe (Maybe (Nothing))
|
|
import Network.Wai.Middleware.RequestLogger (logStdoutDev)
|
|
import Network.Wai.Middleware.Static
|
|
import Web.Scotty.Trans
|
|
|
|
app :: PurrApp ()
|
|
app = do
|
|
-- Middleware definition
|
|
middleware logStdoutDev
|
|
middleware $ staticPolicy (noDots >-> addBase "views/public")
|
|
|
|
-- Core Routes
|
|
get "/" $ do
|
|
html $ renderIndex "/" Nothing
|
|
|
|
get "/style.css" $ do
|
|
setHeader "Content-Type" "text/css"
|
|
text renderStyle
|
|
|
|
-- Feature Routes
|
|
Sharing.routes
|