From 7f6ba934fa774a311865e72c091962894c055a8a Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 2 Sep 2019 21:34:26 -0700 Subject: [ibb] fix Biz.Ibb.Move --- lore/Biz/Ibb/Move.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lore') 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 -- cgit v1.2.3