1 files changed, 1 insertions(+), 1 deletions(-)

M Graphics/Layout.hs

@@ 120,7 120,7 @@ boxMaxWidth :: PaddedBox a Double -> LayoutItem y Length x -> LayoutItem y Lengt
 boxMaxWidth parent (LayoutFlow val self childs) = LayoutFlow val self' childs'
   where
     childs' = map (boxMaxWidth self'') childs
-    self'' = mapX (lowerLength $ inline $ B.size parent) self'
+    self'' = mapX' (lowerLength $ inline $ B.size parent) self'
     self' = self { B.max = Size (Pixels max') (block $ B.max self) }
     max' = flowMaxWidth parent self
 boxMaxWidth parent (LayoutGrid val self childs) = LayoutGrid val self' childs