1 files changed, 28 insertions, 0 deletions
diff --git a/source/lux/data/id.lux b/source/lux/data/id.lux
new file mode 100644
index 000000000..0e3bdbee6
--- /dev/null
+++ b/source/lux/data/id.lux
@@ -0,0 +1,28 @@
+##   Copyright (c) Eduardo Julian. All rights reserved.
+##   The use and distribution terms for this software are covered by the
+##   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+##   which can be found in the file epl-v10.html at the root of this distribution.
+##   By using this software in any fashion, you are agreeing to be bound by
+##   the terms of this license.
+##   You must not remove this notice, or any other, from this software.
+
+(;import lux
+         (lux/control (functor #as F #refer #all)
+                      (monad #as M #refer #all)))
+
+## [Types]
+(deftype #export (Id a)
+  (| (#Id a)))
+
+## [Structures]
+(defstruct #export Id/Functor (Functor Id)
+  (def (F;map f fa)
+    (let [(#Id a) fa]
+      (#Id (f a)))))
+
+(defstruct #export Id/Monad (Monad Id)
+  (def M;_functor Id/Functor)
+  (def (M;wrap a) (#Id a))
+  (def (M;join mma)
+    (let [(#Id ma) mma]
+      ma)))