Permalink
Browse files

Initial check-in.

  • Loading branch information...
0 parents commit 0a6b58d195779f513a85428fdc80e1d7d29b5fc4 @jlouis committed Jul 7, 2012
Showing with 39 additions and 0 deletions.
  1. +16 −0 rebar.config
  2. +11 −0 src/erlens.app.src
  3. +12 −0 src/lens.erl
@@ -0,0 +1,16 @@
+{erl_opts, [
+ %% bin_opt_info,
+ warn_format,
+ warn_export_all,
+ warn_export_vars,
+ warn_obsolete_guard,
+ warn_unused_import,
+ warn_bif_clash,
+ %% warn_missing_spec,
+ warn_untyped_record,
+ {parse_transform, lager_transform}]}.
+
+{require_otp_vsn, "R15|R16"}.
+
+{deps, [
+]}.
@@ -0,0 +1,11 @@
+{application, erlens,
+ [
+ {description, ""},
+ {vsn, "1"},
+ {registered, []},
+ {applications, [
+ kernel,
+ stdlib
+ ]},
+ {env, []}
+ ]}.
@@ -0,0 +1,12 @@
+-module(lens).
+
+-compile(export_all).
+
+-record(r, {a, b}).
+
+lens() ->
+ {fun(#r { a = A}) -> A end,
+ fun(R, X) -> R#r { a = X } end}.
+
+
+

0 comments on commit 0a6b58d

Please sign in to comment.