From f58b3885cd7b350a8d12ffa202c357c319f3b311 Mon Sep 17 00:00:00 2001
From: Namdak Tonpa <maxim@synrc.com>
Date: Mon, 3 Jun 2019 18:14:02 +0300
Subject: [PATCH] fix for bert_swift for now

---
 include/bpe.hrl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/include/bpe.hrl b/include/bpe.hrl
index 50eae48..daea007 100644
--- a/include/bpe.hrl
+++ b/include/bpe.hrl
@@ -70,7 +70,7 @@
 -type events() :: #messageEvent{} | #boundaryEvent{} | #timeoutEvent{}.
 -type procId() :: [] | integer() | {atom(),any()}.
 
--record(process,      { id = [] :: procId(),
+-record(process,      { id = [] :: [] | integer() | {atom(),any()}, % procId
                         container=feed :: [] | atom(),
                         feed_id=[] :: [] | atom() | term(),
                         prev=[] :: [] | integer(),
@@ -78,8 +78,8 @@
                         name=[] :: [] | binary() | string() | atom(),
                         feeds=[] :: list(),
                         roles      = [] :: list(),
-                        tasks      = [] :: list(tasks()),
-                        events     = [] :: list(events()),
+                        tasks      = [] :: list(#task{} | #serviceTask{} | #userTask{} | #receiveTask{} | #beginEvent{} | #endEvent{}), % tasks
+                        events     = [] :: list(#messageEvent{} | #boundaryEvent{} | #timeoutEvent{}), % events
                         hist       = [] :: [] | term(),
                         flows      = [] :: list(#sequenceFlow{}),
                         rules      = [] :: [] | term(),