orion/purescript-axon
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

docs: readme

Browse Source
This commit is contained in:
Orion Kindel
2025-03-01 16:18:10 -06:00
parent a58facc982
commit e646cf9c08
2 changed files with 75 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
test/Test/Main.purs
View File

@@ -29,7 +29,8 @@ main = runSpecAndExitProcess [ specReporter ] $ describe "Axon" do
Test.Header.spec
pending' "example" do
cheeses :: Ref.Ref (Array String) <- liftEffect $ Ref.new ["cheddar", "swiss", "gouda"]
cheeses :: Ref.Ref (Array String) <- liftEffect $ Ref.new
[ "cheddar", "swiss", "gouda" ]
let
getCheeses :: Get -> Path ("cheeses") _ -> Aff Response
@@ -50,19 +51,20 @@ main = runSpecAndExitProcess [ specReporter ] $ describe "Axon" do
postCheese _ _ cheese =
let
tryInsert as
| elem cheese as = {state: as, value: false}
| otherwise = {state: as <> [cheese], value: true}
| elem cheese as = { state: as, value: false }
| otherwise = { state: as <> [ cheese ], value: true }
in
liftEffect
$ Ref.modify' tryInsert cheeses
>>= if _ then
toResponse $ Status.accepted
else
toResponse $ Status.conflict
liftEffect
$ Ref.modify' tryInsert cheeses
>>=
if _ then
toResponse $ Status.accepted
else
toResponse $ Status.conflict
handle <-
Axon.serveBun
{port: 8080, hostname: "localhost"}
{ port: 8080, hostname: "localhost" }
(getCheeses `Handler.or` postCheese `Handler.or` deleteCheese)
Aff.joinFiber $ handle.join