module Reddit.Routes.Wiki where
import Reddit.Types.Subreddit
import Data.Text (Text)
import Network.API.Builder.Routes
wikiPage :: SubredditName -> Text -> Route
wikiPage :: SubredditName -> Text -> Route
wikiPage (R Text
sub) Text
page =
[Text] -> [URLParam] -> Method -> Route
Route [ Text
"r", Text
sub, Text
"wiki", Text
page ]
[ ]
Method
"GET"
editPage :: SubredditName -> Text -> Text -> Text -> Route
editPage :: SubredditName -> Text -> Text -> Text -> Route
editPage (R Text
sub) Text
page Text
content Text
reason =
[Text] -> [URLParam] -> Method -> Route
Route [ Text
"r", Text
sub, Text
"api", Text
"wiki", Text
"edit" ]
[ Text
"page" Text -> Text -> URLParam
forall a. ToQuery a => Text -> a -> URLParam
=. Text
page
, Text
"content" Text -> Text -> URLParam
forall a. ToQuery a => Text -> a -> URLParam
=. Text
content
, Text
"reason" Text -> Text -> URLParam
forall a. ToQuery a => Text -> a -> URLParam
=. Text
reason ]
Method
"POST"