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

M Graphics/Layout/Inline.hs

@@ 91,7 91,7 @@ paragraphMap cb (Paragraph a b (RootBox c) d) =
 -- | Apply an operation to the 2nd field of a laid-out paragraph's userdata,
 -- for it's entire subtree.
 layoutMap :: (b -> b') -> ParagraphLayout (a, b, c) -> ParagraphLayout (a, b', c)
-layoutMap cb (ParagraphLayout a b) = ParagraphLayout a $ map inner b
+layoutMap cb (ParagraphLayout a b c) = ParagraphLayout a b $ map inner c
   where
     inner self@Fragment { fragmentUserData = (a, b, c) } = self {
         fragmentUserData = (a, cb b, c),