diff options
| -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 |