sel: Allow to use <Type> XML tag instead of <POUKind>

See: #6 (comment)
jubnzv · Oct 19, 2021 · 1f98e83 · 1f98e83
1 parent 79214e4
commit 1f98e83
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/sel.ml b/src/core/sel.ml
@@ -61,7 +61,7 @@ let rec parse_source i d acc =
         acc.implementation <- (pull_data i);
         parse_source i d acc
       end
-    |`El_start ((_, tag), _) when (String.equal tag "POUKind") -> begin
+    |`El_start ((_, tag), _) when (String.equal tag "POUKind" || String.equal tag "Type") -> begin
         acc.pou_type <- (pull_pou_type i);
         parse_source i d acc
       end