tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Record2.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 = f.x + b.x + b.y
  11   where
  12     f = Foo 1.0
  13     b = Bar 2.0 3.0
  14 --
  15 6.0