implement Network.RemoteData

1 files changed, 1 insertions, 8 deletions

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