From c6d55561bf8422301ea7a2d08b9a7c3e30a1440e Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan.tuomi@valuemotive.com>
Date: Sat, 30 Oct 2021 19:24:00 +0300
Subject: Implement authentication

---
 src/RemoteData.elm | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 src/RemoteData.elm

(limited to 'src/RemoteData.elm')

diff --git a/src/RemoteData.elm b/src/RemoteData.elm
new file mode 100644
index 0000000..7173851
--- /dev/null
+++ b/src/RemoteData.elm
@@ -0,0 +1,52 @@
+module RemoteData exposing (..)
+
+import Http
+
+
+type RemoteData a
+    = Initial
+    | Loading
+    | Failure Http.Error
+    | Success a
+
+
+withDefault : a -> RemoteData a -> a
+withDefault default rd =
+    case rd of
+        Success value ->
+            value
+
+        _ ->
+            default
+
+
+map : (a -> b) -> RemoteData a -> RemoteData b
+map fn rd =
+    case rd of
+        Initial ->
+            Initial
+
+        Loading ->
+            Loading
+
+        Failure err ->
+            Failure err
+
+        Success value ->
+            Success (fn value)
+
+
+andThen : (a -> RemoteData b) -> RemoteData a -> RemoteData b
+andThen callback rd =
+    case rd of
+        Initial ->
+            Initial
+
+        Loading ->
+            Loading
+
+        Failure err ->
+            Failure err
+
+        Success value ->
+            callback value
-- 
cgit v1.3