Changes between Version 10 and Version 11 of Records/SyntaxDirectedNameResolution

Timestamp:

02/27/12 16:17:16 (16 months ago)

Author:

elaforge

Comment:

--

Records/SyntaxDirectedNameResolution

@@ -109 +109 @@
 make ghc generate lenses for the fields instead of get functions.
 
-M.hs:
-{{{
-data M.Record = Record { a :: Int } deriving (Lens)
-}}}
-
-Main.hs:
 {{{
 import qualified M
+-- In M.hs: data Record = Record { a :: Int } deriving (Lens)
 
 get :: Lens record field -> record -> field
@@ -133 +128 @@
 `set ((#b.#a) record) 42` should become `set ((Inner.b . Outer.a) record) 42`
 
-Outer.hs:
-{{{
-data Outer = Outer { a :: Inner.Inner } deriving (Lens)
-}}}
-
-Inner.hs:
-{{{
-data Inner = Inner { b :: Int } deriving (Lens)
-}}}
-
-Main.hs:
-{{{
+{{{
+import qualified Outer
+-- Outer.hs: data Outer = Outer { a :: Inner.Inner } deriving (Lens)
+import qualified Inner
+-- Inner.hs: data Inner = Inner { b :: Int } deriving (Lens)
+
 -- A lens composition operator.  Most lens libraries overload (.) with this,
 -- so we'd either need to make a new operator or move Control.Category into