gistfile1.purs

clearErrors = traverse ((>>= maybeClear) <<< fieldErrorNode) allFields
  where
  maybeClear = maybe (return unit) clear
  clear node = setInnerHTML "" node >>= \_ -> return unit
  allFields = [ FirstNameField
              , LastNameField
              , StreetField
              , CityField
              , StateField
              , PhoneField HomePhone
              , PhoneField CellPhone
              , PhoneField WorkPhone
              , PhoneField OtherPhone
              ]