elm-pages-v3-beta/examples/hackernews/app/Api.elm
2023-01-01 14:45:54 -08:00

28 lines
745 B
Elm

module Api exposing (routes)
import ApiRoute exposing (ApiRoute)
import BackendTask exposing (BackendTask)
import Html exposing (Html)
import Pages.Manifest as Manifest
import Route exposing (Route)
import Site
routes :
BackendTask (List Route)
-> (Maybe { indent : Int, newLines : Bool } -> Html Never -> String)
-> List (ApiRoute.ApiRoute ApiRoute.Response)
routes getStaticRoutes htmlToString =
[ BackendTask.succeed manifest |> Manifest.generator Site.canonicalUrl
]
manifest : Manifest.Config
manifest =
Manifest.init
{ name = "Hacker News Clone"
, description = "elm-pages port of Hacker News"
, startUrl = Route.Feed__ { feed = Nothing } |> Route.toPath
, icons = []
}