docs: readme
This commit is contained in:
@@ -41,7 +41,7 @@ main = launchAff_ do
|
|||||||
[ "cheddar", "swiss", "gouda" ]
|
[ "cheddar", "swiss", "gouda" ]
|
||||||
|
|
||||||
let
|
let
|
||||||
getCheeses :: Get -> Path ("cheeses") _ -> Aff Response
|
getCheeses :: Get -> Path "cheeses" _ -> Aff Response
|
||||||
getCheeses _ _ = liftEffect do
|
getCheeses _ _ = liftEffect do
|
||||||
cheeses' <- Ref.read cheeses
|
cheeses' <- Ref.read cheeses
|
||||||
toResponse $ Status.ok /\ Json cheeses'
|
toResponse $ Status.ok /\ Json cheeses'
|
||||||
|
|||||||
Reference in New Issue
Block a user