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