记录分隔符
实用工具TH的功能是从大型记录类型创建子记录类型,并在这些记录类型之间转换值
如何使用
data TagPoly id clientId name colourCode createdAt updatedAt = TagPoly { _tagId :: id , _tagClientId :: clientId , _tagName :: name , _tagColourCode :: colourCode , _tagCreatedAt :: createdAt , _tagUpdatedAt :: updatedAt } deriving ( Eq , Show , Generic )
type Tag = TagPoly ( TagId ) ( Integer ) ( Text ) ( Text ) ( UTCTime ) ( UTCTime )
createRecor
1