Dixi.API

Documentation

type (:|) a b = a :<|> b infixr 8

(|:) :: a -> b -> a :| b infixr 8

data PrettyPage

Constructors

PP Renders Key Version (Page Html)

Instances

ToJSON PrettyPage

Methods

toJSON :: PrettyPage -> Value

toEncoding :: PrettyPage -> Encoding

data RawPage

Constructors

RP Renders Key Version (Page Text)

Instances

ToJSON RawPage

Methods

toJSON :: RawPage -> Value

toEncoding :: RawPage -> Encoding

data DiffPage

Constructors

DP Renders Key Version Version (Page (Hunks Char))

Instances

ToJSON DiffPage

Methods

toJSON :: DiffPage -> Value

toEncoding :: DiffPage -> Encoding

data History

Constructors

H Renders Key [Page PatchSummary]

Instances

ToJSON History

Methods

toJSON :: History -> Value

toEncoding :: History -> Encoding

data NewBody

Constructors

NB Text (Maybe Text)

Instances

ToJSON NewBody

Methods

toJSON :: NewBody -> Value

toEncoding :: NewBody -> Encoding

FromJSON NewBody

Methods

parseJSON :: Value -> Parser NewBody

data RevReq

Constructors

DR Version Version (Maybe Text)

Instances

ToJSON RevReq

Methods

toJSON :: RevReq -> Value

toEncoding :: RevReq -> Encoding

FromJSON RevReq

Methods

parseJSON :: Value -> Parser RevReq

type HistoryAPI = Get '[HTML, JSON] History :| ((Capture "version" Version :> VersionAPI) :| (("diff" :> (QueryParam "from" Version :> (QueryParam "to" Version :> Get '[HTML, JSON] DiffPage))) :| ("revert" :> (ReqBody '[FormUrlEncoded, JSON] RevReq :> Post '[HTML, JSON] PrettyPage))))

type VersionAPI = PageViewAPI :| (ReqBody '[FormUrlEncoded, JSON] NewBody :> Post '[HTML, JSON] PrettyPage)

type PageAPI = PageViewAPI :| ("history" :> HistoryAPI)

type PageViewAPI = Get '[HTML, JSON] PrettyPage :| ("raw" :> Get '[HTML, JSON] RawPage)

type Dixi = (Capture "page" Key :> PageAPI) :| PageAPI

dixi :: Proxy Dixi