From ca995b3993984cc2d9395a63051b2ecb1bc974a4 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Mon, 27 Mar 2023 16:09:33 +1300
Subject: [PATCH] Define public APIs.

---
 Graphics/Layout.hs            | 6 +++++-
 Graphics/Layout/Arithmetic.hs | 3 ++-
 Graphics/Layout/Box.hs        | 6 +++++-
 Graphics/Layout/Flow.hs       | 4 +++-
 Graphics/Layout/Grid.hs       | 6 +++++-
 Graphics/Layout/Inline.hs     | 3 ++-
 6 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/Graphics/Layout.hs b/Graphics/Layout.hs
index c91ea05..1a40d39 100644
--- a/Graphics/Layout.hs
+++ b/Graphics/Layout.hs
@@ -1,5 +1,9 @@
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
-module Graphics.Layout where
+module Graphics.Layout(LayoutItem(..),
+        layoutGetBox, layoutGetChilds, layoutGetInner,
+        boxMinWidth, boxMaxWidth, boxNatWidth, boxWidth,
+        boxNatHeight, boxMinHeight, boxMaxHeight, boxHeight,
+        boxSplit, boxPaginate, boxPosition, boxLayout, glyphsPerFont) where
 
 import Data.Text.ParagraphLayout (Paragraph(..), ParagraphOptions(..), Fragment(..))
 
diff --git a/Graphics/Layout/Arithmetic.hs b/Graphics/Layout/Arithmetic.hs
index eddd12d..50c5f45 100644
--- a/Graphics/Layout/Arithmetic.hs
+++ b/Graphics/Layout/Arithmetic.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Graphics.Layout.Arithmetic where
+module Graphics.Layout.Arithmetic(Opcode(..), parseCalc, verifyCalc,
+        evalCalc, mapCalc) where
 
 import Data.CSS.Syntax.Tokens (Token(..), NumericValue(..))
 import Data.Scientific (toRealFloat)
diff --git a/Graphics/Layout/Box.hs b/Graphics/Layout/Box.hs
index 478740c..1b99341 100644
--- a/Graphics/Layout/Box.hs
+++ b/Graphics/Layout/Box.hs
@@ -1,5 +1,9 @@
 {-# LANGUAGE RecordWildCards #-}
-module Graphics.Layout.Box where
+module Graphics.Layout.Box(Border(..), mapX, mapY,
+        Size(..), mapSizeX, mapSizeY,
+        PaddedBox(..), zeroBox, lengthBox, mapX', mapY',
+        width, height, minWidth, minHeight, maxWidth, maxHeight,
+        Length(..), lowerLength, Zero(..), CastDouble(..)) where
 
 data Border m n = Border {
     top :: m, bottom :: m, left :: n, right :: n
diff --git a/Graphics/Layout/Flow.hs b/Graphics/Layout/Flow.hs
index 808820a..c857e15 100644
--- a/Graphics/Layout/Flow.hs
+++ b/Graphics/Layout/Flow.hs
@@ -1,4 +1,6 @@
-module Graphics.Layout.Flow where
+module Graphics.Layout.Flow(flowMinWidth, flowNatWidth, flowMaxWidth, flowWidth,
+        flowNatHeight, flowMinHeight, flowMaxHeight, flowHeight,
+        positionFlow, layoutFlow) where
 
 import Graphics.Layout.Box as B
 
diff --git a/Graphics/Layout/Grid.hs b/Graphics/Layout/Grid.hs
index 4cc4e1d..4355d25 100644
--- a/Graphics/Layout/Grid.hs
+++ b/Graphics/Layout/Grid.hs
@@ -1,5 +1,9 @@
 {-# LANGUAGE RecordWildCards, OverloadedStrings #-}
-module Graphics.Layout.Grid where
+module Graphics.Layout.Grid(Grid(..), GridItem(..), Alignment(..), Name,
+        buildGrid, setCellBox, enumerate,
+        gridEstWidth, gridNatWidths, gridMinWidths, gridMaxWidths, gridWidths,
+        gridNatHeights, gridMinHeights, gridMaxHeights, gridHeights,
+        gridPosition, gridLayout) where
 
 import Data.Either (fromRight)
 import Data.Text (Text)
diff --git a/Graphics/Layout/Inline.hs b/Graphics/Layout/Inline.hs
index 5e9b4b6..c9a34f9 100644
--- a/Graphics/Layout/Inline.hs
+++ b/Graphics/Layout/Inline.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE TupleSections #-}
-module Graphics.Layout.Inline where
+module Graphics.Layout.Inline(inlineMinWidth, inlineNatWidth, inlineHeight,
+    inlineSize, inlineChildren, fragmentSize, fragmentSize', fragmentPos) where
 
 import Data.Text.ParagraphLayout (Paragraph(..), ParagraphOptions(..),
                                     SpanLayout(..), Fragment(..),
-- 
2.30.2