src/Bun/Request.purs · purestack-dev/purescript-purestack-server

git.iko.soy/purestack-dev/purescript-purestack-server

on master help sign in

28 lines 543 B history raw

1module Bun.Request

2 ( Request

3 , method

4 , url

5 , json

6 , headers

7 ) where

9import Prelude

11import Control.Promise (Promise)

12import Control.Promise as Promise

13import Data.Argonaut (Json)

14import Effect.Aff (Aff)

15import Foreign.Object (Object)

17foreign import data Request :: Type

19foreign import jsonPromise :: Request -> Promise Json

21json :: Request -> Aff Json

22json = jsonPromise >>> Promise.toAff

24foreign import method :: Request -> String

26foreign import url :: Request -> String

28foreign import headers :: Request -> Object String