Make data Relations more explicit (require for UI use)

ryukzak · Apr 12, 2021 · d537fc2 · d537fc2
1 parent 39f6dc3
commit d537fc2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/NITTA/Model/ProcessorUnits/Types.hs b/src/NITTA/Model/ProcessorUnits/Types.hs
@@ -209,11 +209,11 @@ data Relation
     = -- |Vertical relationships (up and down). For example, the intermediate
       -- step (function execution) can be translated to a sequence of endpoint
       -- steps (receiving and sending variable), and process unit instructions.
-      Vertical ProcessStepID ProcessStepID
+      Vertical {vUp, vDown :: ProcessStepID}
     | -- |Horizontal relationships (on one level). For example, we bind the
       -- function and apply the refactoring. The binding step should be
       -- connected to refactoring steps, including new binding steps.
-      Horizontal ProcessStepID ProcessStepID
+      Horizontal {hPrev, hNext :: ProcessStepID}
     deriving (Show, Eq, Generic, Ord)
 
 isVertical Vertical{} = True