@@ -204,9 +204,8 @@ flow dir es =
204204 DIn -> newFlow (List.maximum ws) (List.maximum hs)
205205 DOut -> newFlow (List.maximum ws) (List.maximum hs)
206206
207−{-| Stack elements vertically. To put `a` above `b` you would say:
208−
209− a `above` b
207+{-| Stack elements vertically.
208+To put `a` above `b` you would say: ``a `above` b``
210209-}
211210above : Element -> Element -> Element
212211above hi lo =
@@ -214,9 +213,8 @@ above hi lo =
214213 (heightOf hi + heightOf lo)
215214 (Flow DDown [hi,lo])
216215
217−{-| Stack elements vertically. To put `a` below `b` you would say:
218−
219− a `below` b
216+{-| Stack elements vertically.
217+To put `a` below `b` you would say: ``a `below` b``
220218-}
221219below : Element -> Element -> Element
222220below lo hi =
@@ -225,6 +223,7 @@ below lo hi =
225223 (Flow DDown [hi,lo])
226224
227225{-| Put elements beside each other horizontally.
226+To put `a` beside `b` you would say: ``a `beside` b``
228227-}
229228beside : Element -> Element -> Element
230229beside lft rht =
@@ -232,8 +231,8 @@ beside lft rht =
232231 (max (heightOf lft) (heightOf rht))
233232 (Flow right [lft,rht])
234233
235−{-| Layer elements on top of each other, starting from the bottom.
236−`(layers == flow outward)`
234+{-| Layer elements on top of each other, starting from the bottom:
235+`layers == flow outward`
237236-}
238237layers : [Element] -> Element
239238layers es =