add Field.hs