module Main where import Prelude data A = A instance showA1 :: Show A where show A = "Instance 1" instance showA2 :: Show A where show A = "Instance 2" main = Test.Assert.assert $ show A == "Instance 1"