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
import qualified Api.Test as Test
import qualified Api.Test.ReservedName as ReservedName
api :: Api BlogApi
api = [(mkVersion 1 0 0, Some1 blog)]
blog :: Router BlogApi BlogApi
blog =
root -/ user
-/ post --/ comment
-/ test --/ reservedName
where
user = route User.resource
post = route Post.resource
comment = route Post.Comment.resource
test = route Test.resource
reservedName = route ReservedName.resource