purescript-0.7.2.0: examples/failing/DuplicateProperties1.purs

-- @shouldFailWith TypesDoNotUnify
module DuplicateProperties where

import Prelude

foreign import data Test :: # * -> *

foreign import subtractX :: forall r. Test (x :: Unit | r) -> Test r

foreign import hasX :: Test (x :: Unit, y :: Unit)

baz = subtractX (subtractX hasX)