module Main where type Inner = Number inner :: Inner inner = 0 type Outer = { inner :: Inner } outer :: Outer outer = { inner: inner } main = Debug.Trace.trace "Done"