// module Module
data Foo = Foo { x :: Integer }
--
import "Prelude"
import "Module" as M

f = M.Foo { x = 3 }
main = match f with
    M.Foo { x } -> x
-- 
3