fix direct map decode

nfdi4plants · Oct 21, 2024 · 01a3c04 · 01a3c04
1 parent ccefbff
commit 01a3c04
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/src/CWL/Decode.fs b/src/CWL/Decode.fs
@@ -335,7 +335,16 @@ module Decode =
             [|
                 for key in dict.Keys do
                     let value = dict.[key]
-                    let source = stringOptionFieldDecoder "source" value
+                    let source =
+                        let s1 =
+                            match value with
+                            | YAMLElement.Object [YAMLElement.Value v] -> Some v.Value
+                            | _ -> None
+                        let s2 = stringOptionFieldDecoder "source" value
+                        match s1,s2 with
+                        | Some s1, _ -> Some s1
+                        | _, Some s2 -> Some s2
+                        | _ -> None
                     let defaultValue = stringOptionFieldDecoder "default" value
                     let valueFrom = stringOptionFieldDecoder "valueFrom" value
                     { Id = key; Source = source; DefaultValue = defaultValue; ValueFrom = valueFrom }