Remove establishVerticalRelation (swap by establishVerticalRelations)

ryukzak · Apr 7, 2021 · c679170 · c679170
1 parent 3c2e7be
commit c679170
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 15 deletions.
diff --git a/src/NITTA/Model/Networks/Bus.hs b/src/NITTA/Model/Networks/Bus.hs
@@ -200,7 +200,7 @@ instance (UnitTag tag, VarValTime v x t) => ProcessorUnit (BusNetwork tag v x t)
                 mapM_
                     ( \(epKey, v) ->
                         when (v `M.member` v2transportStepKey) $
-                            establishVerticalRelation (v2transportStepKey M.! v) epKey
+                            establishVerticalRelations [v2transportStepKey M.! v] [epKey]
                     )
                     enpointStepKeyVars
 
@@ -210,7 +210,7 @@ instance (UnitTag tag, VarValTime v x t) => ProcessorUnit (BusNetwork tag v x t)
                         mapM_
                             ( \v ->
                                 when (v `M.member` v2transportStepKey) $
-                                    establishVerticalRelation pID (v2transportStepKey M.! v)
+                                    establishVerticalRelations [pID] [v2transportStepKey M.! v]
                             )
                             $ variables f
                     )
@@ -229,7 +229,7 @@ instance (UnitTag tag, VarValTime v x t) => ProcessorUnit (BusNetwork tag v x t)
                             steps
                 mapM_
                     ( \case
-                        (Vertical h l) -> establishVerticalRelation (pu2netKey M.! h) (pu2netKey M.! l)
+                        (Vertical h l) -> establishVerticalRelations [pu2netKey M.! h] [pu2netKey M.! l]
                         (Horizontal h l) -> establishHorizontalRelations [pu2netKey M.! h] [pu2netKey M.! l]
                     )
                     relations

diff --git a/src/NITTA/Utils/ProcessDescription.hs b/src/NITTA/Utils/ProcessDescription.hs
@@ -29,7 +29,6 @@ module NITTA.Utils.ProcessDescription (
     scheduleInstruction,
     scheduleNestedStep,
     establishVerticalRelations,
-    establishVerticalRelation,
     establishHorizontalRelations,
     getProcessSlice,
     relatedEndpoints,
@@ -115,17 +114,6 @@ establishVerticalRelations high low = do
                     }
             }
 
--- |Add to the process description information about vertical relation.
-establishVerticalRelation h l = do
-    sch@Schedule{schProcess = p@Process{relations}} <- get
-    put
-        sch
-            { schProcess =
-                p
-                    { relations = Vertical h l : relations
-                    }
-            }
-
 {- |Add to the process description information about horizontal relations (inside
 level), which are defined by the Cartesian product of high and low lists.
 -}