rest-example-0.1.0.1: example-api/Api.hs

-- | The API path hierarchy
module Api where

import Rest.Api

import ApiTypes (BlogApi)
import qualified Api.Post as Post
import qualified Api.User as User
import qualified Api.Post.Comment as Post.Comment

-- | Defines a versioned api
api :: Api BlogApi
api = [(mkVersion 1 0 0, Some1 blog)]

-- _ The entire routing table for v1.0.0 of the blog
blog :: Router BlogApi BlogApi
blog =
  root -/ user
       -/ post --/ comment
  where
    user = route User.resource
    post = route Post.resource
    comment = route Post.Comment.resource