Create Instances.hs