abstract-factory.hs

data AbstractProduct = AbstractProduct{
	getNameOf :: String
}

data AbstractFactory = AbstractFactory{
	createProductABy :: AbstractProduct,
	createProductBBy :: AbstractProduct
}

factory1 = AbstractFactory{
	createProductABy = AbstractProduct{
		getNameOf = "ProductA1"
	},
	createProductBBy = AbstractProduct{
		getNameOf = "ProductB1"
	}
}

factory2 = AbstractFactory{
	createProductABy = AbstractProduct{
		getNameOf = "ProductA2"
	},
	createProductBBy = AbstractProduct{
		getNameOf = "ProductB2"
	}
}

factory3 = factory1{
	createProductABy = AbstractProduct{
		getNameOf = "ProductB2"
	}
}

main = putStrLn ("show " ++ (show $ getNameOf $ createProductABy $ factory3))