File.Binary.Data to File.Binary.Instances and Class.hs -> Instances.hs