ObjectSynonym.purs

module Main where

type Inner = Number

inner :: Inner
inner = 0

type Outer = { inner :: Inner }

outer :: Outer
outer = { inner: inner }

main = Debug.Trace.trace "Done"