add json functions for better function names in js ✨

nfdi4plants · Jan 15, 2024 · 167fae8 · 167fae8
1 parent 634a41b
commit 167fae8
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 0 deletions.
diff --git a/src/ISA/ISA.Json/ArcTypes/ArcAssay.fs b/src/ISA/ISA.Json/ArcTypes/ArcAssay.fs
@@ -82,6 +82,15 @@ module ArcAssay =
         Assay.encoder (ConverterOptions()) (a.ToAssay())
         |> Encode.toString 2
 
+    let toArcJsonString (a:ArcAssay) : string =
+        let spaces = 0
+        Encode.toString spaces (encoder a)
+
+    let fromArcJsonString (jsonString: string) =
+        match Decode.fromString decoder jsonString with
+        | Ok a -> a
+        | Error e -> failwithf "Error. Unable to parse json string to ArcAssay: %s" e
+
 [<AutoOpen>]
 module ArcAssayExtensions =
 

diff --git a/src/ISA/ISA.Json/ArcTypes/ArcInvestigation.fs b/src/ISA/ISA.Json/ArcTypes/ArcInvestigation.fs
@@ -73,6 +73,15 @@ module ArcInvestigation =
         Investigation.encoder (ConverterOptions()) (a.ToInvestigation())
         |> Encode.toString 2
 
+    let toArcJsonString (a:ArcInvestigation) : string =
+        let spaces = 0
+        Encode.toString spaces (encoder a)
+
+    let fromArcJsonString (jsonString: string) =
+        match Decode.fromString decoder jsonString with
+        | Ok a -> a
+        | Error e -> failwithf "Error. Unable to parse json string to ArcInvestigation: %s" e
+
 [<AutoOpen>]
 module ArcInvestigationExtensions =
 

diff --git a/src/ISA/ISA.Json/ArcTypes/ArcStudy.fs b/src/ISA/ISA.Json/ArcTypes/ArcStudy.fs
@@ -67,6 +67,15 @@ module ArcStudy =
         Study.encoder (ConverterOptions()) (a.ToStudy(assays))
         |> Encode.toString 2
 
+    let toArcJsonString (a:ArcStudy) : string =
+        let spaces = 0
+        Encode.toString spaces (encoder a)
+
+    let fromArcJsonString (jsonString: string) =
+        match Decode.fromString decoder jsonString with
+        | Ok a -> a
+        | Error e -> failwithf "Error. Unable to parse json string to ArcStudy: %s" e
+
 [<AutoOpen>]
 module ArcStudyExtensions =