mirror of
https://github.com/ilyakooo0/servant-reflex.git
synced 2024-09-11 07:15:29 +03:00
Udpate paraameter types in Readme to Dynamics
This commit is contained in:
parent
da4c1bb3ec
commit
3c71807563
16
README.md
16
README.md
@ -88,7 +88,7 @@ type API = "getint" :> Get '[JSON] Int
|
||||
(constDyn (BasePath "/"))
|
||||
```
|
||||
|
||||
These client functions are computed from the API and manage serialization, XhrRequest generation, and deserialization for you. `a` parameters become `Behavior t (Either String a)` values. You provide a trigger event and receive an `Event t (ReqResult a)`, with responses from the API server (which you would write with `servant-server`).
|
||||
These client functions are computed from the API and manage serialization, XhrRequest generation, and deserialization for you. `a` parameters become `Dynamic t (Either String a)` values. You provide a trigger event and receive an `Event t (ReqResult a)`, with responses from the API server (which you would write with `servant-server`).
|
||||
|
||||
```haskell
|
||||
-- No need to write these functions. servant-reflex creates them for you!
|
||||
@ -97,18 +97,18 @@ These client functions are computed from the API and manage serialization, XhrRe
|
||||
-> m (Event t (ReqResult Int)) -- ^ Consume the answer
|
||||
|
||||
sayhi :: MonadWidget t m
|
||||
=> Behavior t (Either String String)
|
||||
=> Dynamic t (Either String String)
|
||||
-- ^ One input parameter - the 'name'
|
||||
-> Behavior t [String]
|
||||
-> Dynamic t [String]
|
||||
-- ^ Another input: list of preferred greetings
|
||||
-> Behavior t Bool
|
||||
-> Dynamic t Bool
|
||||
-- ^ Flag for capitalizing the response
|
||||
-> Event t ()
|
||||
-- ^ Trigger the XHR Request
|
||||
-> m (Event t (ReqResult String))
|
||||
|
||||
doubleit :: MonadWidget t m
|
||||
=> Behavior t (Either String Double)
|
||||
=> Dynamic t (Either String Double)
|
||||
-> Event t ()
|
||||
-> m (Event t (ReqResult Double))
|
||||
```
|
||||
@ -142,15 +142,15 @@ This example builds some input fields to enter API parameters, buttons to trigge
|
||||
display =<< holdDyn (Just 0) serverInts
|
||||
|
||||
elClass "div" "hello-demo" $ do
|
||||
nameText <- (current . value) <$> textInput def
|
||||
greetings <- (fmap words . current . value) <$> textInput def
|
||||
nameText <- value <$> textInput def
|
||||
greetings <- (fmap words . value) <$> textInput def
|
||||
withGusto <- checkbox def
|
||||
helloButton <- button "Say hi"
|
||||
hellos <- fmapMaybe resResult <$> sayhi nameText greetings withGusto helloButton
|
||||
display =<< holdDyn Nothing hellos
|
||||
|
||||
elClass "div" "demo-double" $ do
|
||||
inputDouble <- (fmapMaybe readMaybe . current) <$> textInput def
|
||||
inputDouble <- (fmapMaybe readMaybe) <$> textInput def
|
||||
doubleButton <- button "Double it"
|
||||
outputDouble <- fmapMaybe resSuccess <$> doubleit inputDouble doubleButton
|
||||
display =<< holdDyn Nothing outputDouble
|
||||
|
Loading…
Reference in New Issue
Block a user