@@ -101,7 +101,7 @@ beside lft rht = newElement (widthOf lft + widthOf rht) (max (heightOf lft) (hei
101layers es =
101layers es =
102 let ws = List.map widthOf es
102 let ws = List.map widthOf es
103 hs = List.map heightOf es
103 hs = List.map heightOf es
104− in newElement (List.maximum w) (List.maximum h) (Flow DOut es)
104+ in newElement (List.maximum ws) (List.maximum hs) (Flow DOut es)
107-- Repetitive things --
107-- Repetitive things --