diff options
| -rw-r--r-- | lore/Network/RemoteData.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lore/Network/RemoteData.hs b/lore/Network/RemoteData.hs index a2c58a7..2fe6557 100644 --- a/lore/Network/RemoteData.hs +++ b/lore/Network/RemoteData.hs @@ -8,6 +8,7 @@ data RemoteData a b | Loading | Failure a | Success b + deriving (Eq, Show) -- TODO figure out Http.Error -- type WebData a = RemoteData Http.Error a @@ -25,9 +26,6 @@ instance Applicative (RemoteData e) where Failure a <*> _ = Failure a Success a <*> b = fmap a b -instance Show (RemoteData a b) -instance Eq (RemoteData a b) - fromEither :: Either a b -> RemoteData a b fromEither (Left a) = Failure a fromEither (Right a) = Success a |