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

M Graphics/Layout.hs

@@ 75,7 75,7 @@ boxMinWidth parent (LayoutGrid val self childs) = LayoutGrid val self' $ zip cel
                 | cell <- cells']
     cells' = map setCellBox' $ zip childs' $ map fst childs
     childs'' = map (mapX' $ lowerLength selfWidth) $ map layoutGetBox childs'
-    childs' = map snd $ map (boxMinWidth $ Just selfWidth) $ map snd childs
+    childs' = map (boxMinWidth $ Just selfWidth) $ map snd childs
     selfWidth = lowerLength parent' $ inline $ containerSize self
     parent' = fromMaybe (gridEstWidth self [
         GridItem startRow endRow startCol endCol alignment zeroBox |