2 files changed, 16 insertions(+), 0 deletions(-)

M balkon.cabal
A src/Data/Text/ParagraphLayout/Internal/ResolvedBox.hs

@@ 117,6 117,7 @@ library balkon-internal
         Data.Text.ParagraphLayout.Internal.Plain.Paragraph,
         Data.Text.ParagraphLayout.Internal.Plain.ParagraphLayout,
         Data.Text.ParagraphLayout.Internal.Rect,
+        Data.Text.ParagraphLayout.Internal.ResolvedBox,
         Data.Text.ParagraphLayout.Internal.ResolvedSpan,
         Data.Text.ParagraphLayout.Internal.Rich,
         Data.Text.ParagraphLayout.Internal.Rich.Paragraph,

@@ 0,0 1,15 @@
+module Data.Text.ParagraphLayout.Internal.ResolvedBox (ResolvedBox (..))
+where
+
+import Data.Text.ParagraphLayout.Internal.BoxOptions
+
+-- | Internal structure describing an inline box.
+-- May be shared by multiple fragments.
+data ResolvedBox d = ResolvedBox
+    { boxUserData :: d
+    , boxIndex :: Int
+    , boxOptions :: BoxOptions
+    }
+
+instance Eq (ResolvedBox d) where
+    a == b = boxIndex a == boxIndex b