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

M src/Data/Text/ParagraphLayout/Internal/LineHeight.hs
M src/Data/Text/ParagraphLayout/Internal/Paginable.hs
M src/Data/Text/ParagraphLayout/Internal/Rect.hs

@@ 3,6 3,7 @@ where
 
 import Data.Int (Int32)
 
+-- | Determines the preferred line height of text in the resulting layout.
 data LineHeight
 
     = Normal

@@ 11,6 11,7 @@ import Data.Text.ParagraphLayout.Internal.LinePagination
 import Data.Text.ParagraphLayout.Internal.ParagraphLine
 import Data.Text.ParagraphLayout.Internal.Plain.ParagraphLayout
 
+-- | Defines options for breaking a layout into pages.
 data PageOptions = PageOptions
 
     { pageCurrentHeight :: Int32

@@ 14,7 14,17 @@ module Data.Text.ParagraphLayout.Internal.Rect
     )
 where
 
-data Rect a = Rect { x_origin :: a, y_origin :: a, x_size :: a, y_size :: a }
+-- | An axis-aligned rectangle on a 2D plane.
+data Rect a = Rect
+    { x_origin :: a
+    -- ^ X coordinate of the corner designated as the rectangle's origin.
+    , y_origin :: a
+    -- ^ Y coordinate of the corner designated as the rectangle's origin.
+    , x_size :: a
+    -- ^ Signed difference between the X coordinates of the rectangle's sides.
+    , y_size :: a
+    -- ^ Signed difference between the Y coordinates of the rectangle's sides.
+    }
     deriving (Eq, Read, Show)
 
 -- | Absolute difference between the X coordinates of the rectangle's sides.