tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Record3.scl

   1 module {
   2     features = [fields]
   3 }
   4
   5 import "Prelude"
   6
   7 data Foo = Foo { x :: Double }
   8 data Bar = Bar { x :: Double, y :: Double }
   9
  10 main = sum $ map (\v -> v.x) l
  11   where
  12     l = [Foo 1.0, Foo 2.0]
  13 --
  14 3.0