Added missing datamap to compressed study json 🐛

nfdi4plants · Jul 11, 2024 · 36ab086 · 36ab086
1 parent 950fd6d
commit 36ab086
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Json/Study.fs b/src/Json/Study.fs
@@ -77,6 +77,7 @@ module Study =
             Encode.tryIncludeSeq "Contacts" Person.encoder study.Contacts
             Encode.tryIncludeSeq "StudyDesignDescriptors" OntologyAnnotation.encoder study.StudyDesignDescriptors
             Encode.tryIncludeSeq "Tables" (ArcTable.encoderCompressed stringTable oaTable cellTable) study.Tables
+            Encode.tryInclude "Datamap" (DataMap.encoderCompressed stringTable oaTable cellTable) study.DataMap
             Encode.tryIncludeSeq "RegisteredAssayIdentifiers" Encode.string study.RegisteredAssayIdentifiers
             Encode.tryIncludeSeq "Comments" Comment.encoder study.Comments
         ]
@@ -95,6 +96,7 @@ module Study =
                 ?contacts = get.Optional.Field "Contacts" (Decode.resizeArray Person.decoder),
                 ?studyDesignDescriptors = get.Optional.Field "StudyDesignDescriptors" (Decode.resizeArray OntologyAnnotation.decoder),
                 ?tables = get.Optional.Field "Tables" (Decode.resizeArray <| ArcTable.decoderCompressed stringTable oaTable cellTable),
+                ?datamap = get.Optional.Field "DataMap" (DataMap.decoderCompressed stringTable oaTable cellTable),
                 ?registeredAssayIdentifiers = get.Optional.Field "RegisteredAssayIdentifiers" (Decode.resizeArray Decode.string),
                 ?comments = get.Optional.Field "Comments" (Decode.resizeArray Comment.decoder)
             )