1 files changed, 33 insertions, 0 deletions
diff --git a/source/lux/data/reader.lux b/source/lux/data/reader.lux
new file mode 100644
index 000000000..e91687c3a
--- /dev/null
+++ b/source/lux/data/reader.lux
@@ -0,0 +1,33 @@
+##   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 #refer (#exclude Reader))
+         (lux/control (functor #as F #refer #all)
+                      (monad #as M #refer #all)))
+
+## [Types]
+(deftype #export (Reader r a)
+  (-> r a))
+
+## [Structures]
+(defstruct #export Reader/Functor (All [r]
+                                    (Functor (Reader r)))
+  (def (F;map f fa)
+    (lambda [env]
+      (f (fa env)))))
+
+(defstruct #export Reader/Monad (All [r]
+                                  (Monad (Reader r)))
+  (def M;_functor Reader/Functor)
+
+  (def (M;wrap x)
+    (lambda [env] x))
+
+  (def (M;join mma)
+    (lambda [env]
+      (mma env env))))