Play around in playground

CSBiology · May 16, 2024 · ebc77aa · ebc77aa
1 parent c51cf40
commit ebc77aa
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/playground.fsx b/playground.fsx
@@ -124,13 +124,18 @@ type OboOntology =
                     loop en terms typedefs formatVersion (skipColonSpace enTrimmed |> Some) ontology date savedBy autoGeneratedBy subsetdefs imports synonymtypedefs idSpaces defaultRelationshipIdPrefix idMappings remarks treatXrefsAsEquivalents treatXrefsAsIsAs relaxUniqueIdentifierAssumptionForNamespaces relaxUniqueLabelAssumptionForNamespaces (lineNumber + 1)
                 | "ontology" ->
                     loop en terms typedefs formatVersion dataVersion (skipColonSpace enTrimmed |> Some) date savedBy autoGeneratedBy subsetdefs imports synonymtypedefs idSpaces defaultRelationshipIdPrefix idMappings remarks treatXrefsAsEquivalents treatXrefsAsIsAs relaxUniqueIdentifierAssumptionForNamespaces relaxUniqueLabelAssumptionForNamespaces (lineNumber + 1)
+                | "date" -> 
+                    let parsedDate = DateTime.parse(skipColonSpace enTrimmed)
+                    loop en terms typedefs formatVersion dataVersion ontology date savedBy autoGeneratedBy subsetdefs imports synonymtypedefs idSpaces defaultRelationshipIdPrefix idMappings remarks treatXrefsAsEquivalents treatXrefsAsIsAs relaxUniqueIdentifierAssumptionForNamespaces relaxUniqueLabelAssumptionForNamespaces (lineNumber + 1)
                 | _ -> 
                     loop en terms typedefs formatVersion dataVersion ontology date savedBy autoGeneratedBy subsetdefs imports synonymtypedefs idSpaces defaultRelationshipIdPrefix idMappings remarks treatXrefsAsEquivalents treatXrefsAsIsAs relaxUniqueIdentifierAssumptionForNamespaces relaxUniqueLabelAssumptionForNamespaces (lineNumber + 1)
             | false -> 
                 OboOntology.create (List.rev terms) (List.rev typedefs) formatVersion dataVersion ontology date savedBy autoGeneratedBy subsetdefs imports synonymtypedefs idSpaces defaultRelationshipIdPrefix idMappings remarks treatXrefsAsEquivalents treatXrefsAsIsAs relaxUniqueIdentifierAssumptionForNamespaces relaxUniqueLabelAssumptionForNamespaces
 
         loop en [] [] String.Empty None None None None None [] [] [] [] None [] [] [] [] [] [] 0    // was 1 before
 
+DateTime.parse "24:04:2024 08:01"
+