From 7a0e9725e691bd84cda8f6b169414581e5e1d4f1 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 29 Aug 2019 06:26:52 -0700 Subject: implement Network.RemoteData --- lore/Biz/Ibb/Core.hs | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'lore/Biz/Ibb/Core.hs') diff --git a/lore/Biz/Ibb/Core.hs b/lore/Biz/Ibb/Core.hs index 4ec87e3..39f506c 100644 --- a/lore/Biz/Ibb/Core.hs +++ b/lore/Biz/Ibb/Core.hs @@ -6,9 +6,9 @@ module Biz.Ibb.Core where import Alpha import Biz.Ibb.Influencers -import Data.Proxy import Miso import Miso.String +import Network.RemoteData import Servant.API import Servant.Links @@ -21,13 +21,6 @@ data Model = Model , people :: WebData [Person] } deriving (Show, Eq) -data RemoteData e a - = NotAsked - | Loading - | Failure e - | Success a - deriving (Show, Eq) - type WebData a = RemoteData MisoString a init :: URI -> Model -- cgit v1.2.3