Modify datatypes.hs to include area function