@@ -24,7 +24,7 @@ type DataRows = (
2424, resource_contributors :: Maybe Contributors
2525, resource_dates :: Maybe Dates
2626, resource_language :: Maybe String
27- -- ^ Primary language of the resource. Allowed values are taken
27+ -- ^ Primary language of the resource. Allowed values are taken
2828 -- from IETF BCP 47, ISO 639-1 language codes.
2929 -- Currently just modeled as a string
3030, resource_sizes :: Maybe Sizes
@@ -55,6 +55,8 @@ type AttributesRows = (
5555-- , relatedIdentifiers :: Array Identifier -- partial, see comments in Simple.purs
5656, types :: Types
5757, formats :: Array NonEmptyString -- Array Format
58+ , version :: Maybe String
59+ , descriptions :: Array Description
5860)
5961
6062-- | Combines the Identifier and AlternateIdentifier properties from XML.
@@ -97,14 +99,20 @@ type Types = Record TypeRows
9799-- )
98100-- type Format = Record FormatRows
99101
102+ type DescriptionRows = (
103+ description :: String
104+ , descriptionType :: String -- TODO: refine
105+ )
106+ type Description = Record DescriptionRows
107+
100108type RelationshipsRows = (
101109)
102110
103111type Relationships = Record RelationshipsRows
104112
105113
106- {-
107- -- | Uniquely identifies a creator or contributor, according to
114+ {-
115+ -- | Uniquely identifies a creator or contributor, according to
108116-- various identifier schemes.
109117data NameIdentifier = NameIdentifier NonemptycontentStringType NameIdentifierAttributes deriving (Eq,Show)
110118data NameIdentifierAttributes = NameIdentifierAttributes
0 commit comments