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
        --, "previous" =. previous
        , Text
"reason" Text -> Text -> URLParam
forall a. ToQuery a => Text -> a -> URLParam
=. Text
reason ]
        Method
"POST"