创建标记字段数据类型的实例

Question

如何创建“标记字段数据类型”的实例？

data InputData = InputData { events :: [Event], newResources :: [Resource] }
myInputData :: InputData
myInputData = ???

Answer 1

where myInputData = InputData {events=[], newResources=[]}