--- /dev/null
+module {
+ features = [fields]
+}
+
+import "Prelude"
+
+data Foo = Foo { x :: Double }
+data Bar = Bar { x :: Double, y :: Double }
+
+main = sum $ map (\v -> v.x) l
+ where
+ l = [Foo 1.0, Foo 2.0]
+--
+3.0
\ No newline at end of file