Records.purs

module Namespacing2 where


type Pos2DU = { x :: Number, y :: Number }

area :: Pos2DU -> Number
area {x = x, y = y} = x * y

data Pos2DT = Pos2DT { x :: Number, y :: Number }

area' :: Pos2DT -> Number
area' (Pos2DT {x = y, y = y}) = x * y

{-
⚡ psc Namespacing2.purs 
Error at Namespacing2.purs line 12, column 33 - line 12, column 37: 
Error in module Namespacing2
Unknown value 'x'

-}