1 files changed, 31 insertions, 0 deletions
diff --git a/com/simatime/network.hs b/com/simatime/network.hs
new file mode 100644
index 0000000..e47e891
--- /dev/null
+++ b/com/simatime/network.hs
@@ -0,0 +1,31 @@
+-- | A port of Kris Jenkins' RemoteData Elm module
+-- <https://github.com/krisajenkins/remotedata>.
+--
+module Com.Simatime.Network where
+
+data RemoteData a b
+    = NotAsked
+    | Loading
+    | Failure a
+    | Success b
+    deriving (Eq, Show)
+
+-- TODO figure out Http.Error
+-- type WebData a = RemoteData Http.Error a
+
+instance Functor (RemoteData a) where
+    fmap _ NotAsked = NotAsked
+    fmap _ Loading = Loading
+    fmap _ (Failure a) = Failure a
+    fmap f (Success a) = Success (f a)
+
+instance Applicative (RemoteData e) where
+    pure = Success
+    NotAsked <*> _ = NotAsked
+    Loading <*> _ = Loading
+    Failure a <*> _ = Failure a
+    Success a <*> b = fmap a b
+
+fromEither :: Either a b -> RemoteData a b
+fromEither (Left a) = Failure a
+fromEither (Right a) = Success a