diff --git a/src/Discord/Internal/Rest/Channel.hs b/src/Discord/Internal/Rest/Channel.hs index 7c91b5fa..41cf4556 100644 --- a/src/Discord/Internal/Rest/Channel.hs +++ b/src/Discord/Internal/Rest/Channel.hs @@ -580,7 +580,7 @@ channelJsonRequest c = case c of mempty (StartThreadNoMessage chan sto) -> - Post (channels /~ chan /: "messages" /: "threads") + Post (channels /~ chan /: "threads") (pure $ R.ReqBodyJson $ toJSON sto) mempty