21 lines
443 B
Haskell
21 lines
443 B
Haskell
|
module Handler.Swagger where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
|
||
|
|
import Data.Swagger
|
||
|
|
import Handler.ListChallenges
|
||
|
|
import Handler.ShowChallenge
|
||
|
|
|
||
|
|
import Control.Lens hiding ((.=))
|
||
|
|
|
||
|
|
getSwaggerR :: Handler Value
|
||
|
|
getSwaggerR = return $ toJSON apiDescription
|
||
|
|
|
||
|
|
apiDescription :: Swagger
|
||
|
|
apiDescription = generalApi <> listChallengesApi <> leaderboardApi
|
||
|
|
|
||
|
|
generalApi :: Swagger
|
||
|
|
generalApi = (mempty :: Swagger)
|
||
|
|
& info .~ (mempty &
|
||
|
|
title .~ "Gonito API")
|