@@ -204,9 +204,8 @@ flow dir es =
204 DIn -> newFlow (List.maximum ws) (List.maximum hs)
204 DIn -> newFlow (List.maximum ws) (List.maximum hs)
205 DOut -> newFlow (List.maximum ws) (List.maximum hs)
205 DOut -> newFlow (List.maximum ws) (List.maximum hs)
207−{-| Stack elements vertically. To put `a` above `b` you would say:
207+{-| Stack elements vertically.
208−
208+To put `a` above `b` you would say: ``a `above` b``
211above : Element -> Element -> Element
210above : Element -> Element -> Element
212above hi lo =
211above hi lo =
@@ -214,9 +213,8 @@ above hi lo =
214 (heightOf hi + heightOf lo)
213 (heightOf hi + heightOf lo)
215 (Flow DDown [hi,lo])
214 (Flow DDown [hi,lo])
217−{-| Stack elements vertically. To put `a` below `b` you would say:
216+{-| Stack elements vertically.
218−
217+To put `a` below `b` you would say: ``a `below` b``
221below : Element -> Element -> Element
219below : Element -> Element -> Element
222below lo hi =
220below lo hi =
@@ -225,6 +223,7 @@ below lo hi =
225 (Flow DDown [hi,lo])
223 (Flow DDown [hi,lo])
227{-| Put elements beside each other horizontally.
225{-| Put elements beside each other horizontally.
226+To put `a` beside `b` you would say: ``a `beside` b``
229beside : Element -> Element -> Element
228beside : Element -> Element -> Element
230beside lft rht =
229beside lft rht =
@@ -232,8 +231,8 @@ beside lft rht =
232 (max (heightOf lft) (heightOf rht))
231 (max (heightOf lft) (heightOf rht))
233 (Flow right [lft,rht])
232 (Flow right [lft,rht])
235−{-| Layer elements on top of each other, starting from the bottom.
234+{-| Layer elements on top of each other, starting from the bottom:
236−`(layers == flow outward)`
235+`layers == flow outward`
238layers : [Element] -> Element
237layers : [Element] -> Element
239layers es =
238layers es =