diff options
| author | Ben Sima <ben@bsima.me> | 2019-09-02 21:34:26 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-09-02 21:34:26 -0700 |
| commit | 7f6ba934fa774a311865e72c091962894c055a8a (patch) | |
| tree | a78dac0c246eb12c2cdc3ff30eba60ad39d412a7 | |
| parent | b75efdb2c81bc34b138d316e0893de216e68df91 (diff) | |
[ibb] fix Biz.Ibb.Move
| -rw-r--r-- | lore/Biz/Ibb/Move.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lore/Biz/Ibb/Move.hs b/lore/Biz/Ibb/Move.hs index ea3904d..c2adea1 100644 --- a/lore/Biz/Ibb/Move.hs +++ b/lore/Biz/Ibb/Move.hs @@ -11,7 +11,6 @@ module Biz.Ibb.Move ( import Alpha import Data.Aeson -import Biz.Ibb.Influencers (Person) import Biz.Ibb.Core as Core import JavaScript.Web.XMLHttpRequest (Request(..), Method(GET), RequestData(NoData), contents, xhrByteString) import Miso @@ -25,7 +24,7 @@ move (ChangeRoute u) m = m <# do pushURI u >> pure Nop move FetchPeople m = m <# do SetPeople /@ fetchPeople move (SetPeople ps) m = noEff m { people = ps } -fetchPeople :: IO (WebData [Person]) +fetchPeople :: IO (WebData [Core.Person]) fetchPeople = do mjson <- contents /@ xhrByteString req case mjson of |