Skip to content

Commit e05fad4

Browse files
committed
finished adding known (to me) relevant fields for Metajelo
1 parent 69a1459 commit e05fad4

1 file changed

Lines changed: 11 additions & 3 deletions

File tree

src/DataCite/Types.purs

Lines changed: 11 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -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+
100108
type RelationshipsRows = (
101109
)
102110

103111
type 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.
109117
data NameIdentifier = NameIdentifier NonemptycontentStringType NameIdentifierAttributes deriving (Eq,Show)
110118
data NameIdentifierAttributes = NameIdentifierAttributes

0 commit comments

Comments
 (0)