diff options
| author | Ben Sima <ben@bsima.me> | 2019-08-29 06:26:52 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-08-29 06:26:52 -0700 |
| commit | 7a0e9725e691bd84cda8f6b169414581e5e1d4f1 (patch) | |
| tree | 7be077badb2cc362a03fc73459a708e8a5ba3c88 /lore/Biz/Ibb/Move.hs | |
| parent | cac8297fa42721e09d96614c1b16ab17d2c383d0 (diff) | |
implement Network.RemoteData
Diffstat (limited to 'lore/Biz/Ibb/Move.hs')
| -rw-r--r-- | lore/Biz/Ibb/Move.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lore/Biz/Ibb/Move.hs b/lore/Biz/Ibb/Move.hs index 291e015..ea3904d 100644 --- a/lore/Biz/Ibb/Move.hs +++ b/lore/Biz/Ibb/Move.hs @@ -16,6 +16,7 @@ import Biz.Ibb.Core as Core import JavaScript.Web.XMLHttpRequest (Request(..), Method(GET), RequestData(NoData), contents, xhrByteString) import Miso import Miso.String +import Network.RemoteData move :: Action -> Model -> Effect Action Model move Nop m = noEff m @@ -29,9 +30,9 @@ fetchPeople = do mjson <- contents /@ xhrByteString req case mjson of Nothing -> pure $ Failure "could not read from server" - Just json -> pure - $ either (Failure . ms) Core.Success - $ eitherDecodeStrict json + Just a -> pure + $ either (Failure . ms) Network.RemoteData.Success + $ eitherDecodeStrict a where req = Request { reqMethod = GET , reqURI = "/api/people" -- FIXME: can replace this hardcoding with a function? |