thunderstrike/purescript-httpurple
thunderstrike/purescript-httpurple
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update docs

Browse Source
This commit is contained in:
sigma-andex 2022-06-06 10:53:05 +01:00
parent 17358051fb
commit 13af9e70f5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/Examples/JsonParsing/Main.purs
View File

@ -26,6 +26,9 @@ route = RD.root $ RG.sum
type HelloWorldRequest = { name :: String } type HelloWorldRequest = { name :: String }
type HelloWorldResponse = { hello :: String } type HelloWorldResponse = { hello :: String }
-- the following test decoder/encoder code is just for testing. in your project you will want to use
-- jsonEncoder and jsonDecoder from httpurple-argonaut or httpurple-yoga-json
foreign import data Json :: Type foreign import data Json :: Type
foreign import parseJson :: String -> Maybe Json foreign import parseJson :: String -> Maybe Json
@ -47,9 +50,10 @@ main =
serve { port: 8080, onStarted } { route, router } serve { port: 8080, onStarted } { route, router }
where where
router { route: SayHello, method: Post, body } = usingCont do router { route: SayHello, method: Post, body } = usingCont do
-- in your project you will want to use the httpurple-argonaut or httpurple-yoga-json decoder and encoder -- in your project you will want to use Argonaut.jsonDecoder from httpurple-argonaut
-- or Yoga.jsonDecoder from httpurple-yoga-json here instead of the testDecoder
{ name } :: HelloWorldRequest <- fromJson testDecoder body { name } :: HelloWorldRequest <- fromJson testDecoder body
ok' Json.jsonHeaders $ toJson testEncoder $ { hello: name } ok' Json.jsonHeaders $ toJson testEncoder $ { hello: name } -- same here for the encoder
router { route: SayHello } = notFound router { route: SayHello } = notFound
onStarted = do onStarted = do