p
Size: a a a
p
SG
p
AK
type ListUsers
= GET "/users"
{ query ::
{ sortBy :: UserSort
, sortDir :: SortDir
}
, response ::
{ ok :: JSON (Array User)
}
http://....... + /usersmakeSecureRequest route path query body = do
auth <- read
case auth of
Nothing -> do
redirect Home
pure $ Left NotAuthorized
Just { token } -> do
res <- liftAff $ Apiary.makeRequest route (addBaseUrl <<< addToken token) path query body
void $ lfor res onError
pure $ lmap ApiaryError res
addBaseUrl :: forall r. { url :: String | r } -> { url :: String | r }
addBaseUrl request@{ url } = request { url = Config.apiEndpoint <> url }
AK
SG
makeSecureRequest route path query body = do
auth <- read
case auth of
Nothing -> do
redirect Home
pure $ Left NotAuthorized
Just { token } -> do
res <- liftAff $ Apiary.makeRequest route (addBaseUrl <<< addToken token) path query body
void $ lfor res onError
pure $ lmap ApiaryError res
addBaseUrl :: forall r. { url :: String | r } -> { url :: String | r }
addBaseUrl request@{ url } = request { url = Config.apiEndpoint <> url }
SG
ЗП
p
ЗП
ЗП
ЗП
p
ЗП
ЗП
ЗП
ЗП
ЗП
p