From a226a881dfae63ff27ce4ee89992efe73acfcc61 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 24 Mar 2023 13:59:41 +1300
Subject: [PATCH] Rename Graphics.Layout.CSS.Internal to Length

---
 Graphics/Layout/CSS.hs                         |  2 +-
 Graphics/Layout/CSS/Font.hs                    |  6 ++----
 Graphics/Layout/CSS/{Internal.hs => Length.hs} | 16 ++++------------
 Graphics/Layout/Grid/CSS.hs                    |  2 +-
 cattrap.cabal                                  |  2 +-
 5 files changed, 9 insertions(+), 19 deletions(-)
 rename Graphics/Layout/CSS/{Internal.hs => Length.hs} (82%)

diff --git a/Graphics/Layout/CSS.hs b/Graphics/Layout/CSS.hs
index 460dc87..40c440d 100644
--- a/Graphics/Layout/CSS.hs
+++ b/Graphics/Layout/CSS.hs
@@ -9,7 +9,7 @@ import Stylist.Tree (StyleTree(..))
 import Graphics.Layout.Box as B
 import Graphics.Layout
 import Graphics.Text.Font.Choose (Pattern(..), unset)
-import Graphics.Layout.CSS.Internal
+import Graphics.Layout.CSS.Length
 import Graphics.Layout.CSS.Font
 import Graphics.Layout.Grid.CSS
 import Graphics.Layout.Inline.CSS
diff --git a/Graphics/Layout/CSS/Font.hs b/Graphics/Layout/CSS/Font.hs
index c58407c..b9ab1a3 100644
--- a/Graphics/Layout/CSS/Font.hs
+++ b/Graphics/Layout/CSS/Font.hs
@@ -1,16 +1,14 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Graphics.Layout.CSS.Font(Font'(..), placeholderFont, hbScale, hbUnit,
-	pattern2hbfont, pattern2font, CSSFont(..), variations') where
+        pattern2hbfont, pattern2font, CSSFont(..), variations') where
 
 import Data.CSS.Syntax.Tokens (Token(..), NumericValue(..), serialize)
 import Stylist (PropertyParser(..))
 import qualified Data.Text as Txt
-import Data.Scientific (toRealFloat)
-import Debug.Trace (trace) -- For warnings.
 import Data.Maybe (fromMaybe)
 
 import Graphics.Layout.Box
-import Graphics.Layout.CSS.Internal
+import Graphics.Layout.CSS.Length
 
 import Data.Text.Glyphize as HB
 import Graphics.Text.Font.Choose (Pattern(..), Value(..), normalizePattern,
diff --git a/Graphics/Layout/CSS/Internal.hs b/Graphics/Layout/CSS/Length.hs
similarity index 82%
rename from Graphics/Layout/CSS/Internal.hs
rename to Graphics/Layout/CSS/Length.hs
index 6a6d059..9e4820c 100644
--- a/Graphics/Layout/CSS/Internal.hs
+++ b/Graphics/Layout/CSS/Length.hs
@@ -1,23 +1,15 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Graphics.Layout.CSS.Internal where
+module Graphics.Layout.CSS.Length where
 
-import Data.CSS.Syntax.Tokens (Token(..), NumericValue(..), serialize)
-import Stylist (PropertyParser(..))
+import Data.CSS.Syntax.Tokens (Token(..), NumericValue(..))
 import qualified Data.Text as Txt
 import Data.Scientific (toRealFloat)
 import Debug.Trace (trace) -- For warnings.
-import Data.Maybe (fromMaybe)
+import Data.Text.Glyphize (Font)
+import Graphics.Text.Font.Choose (Pattern(..))
 
 import Graphics.Layout.Box
 
-import Data.Text.Glyphize as HB
-import Graphics.Text.Font.Choose (Pattern(..), Value(..), normalizePattern,
-                                  getValue', getValue0, setValue, Binding(..),
-                                  configSubstitute', defaultSubstitute,
-                                  fontSort', MatchKind(..), fontRenderPrepare')
-import qualified Data.ByteString as B
-import System.IO.Unsafe (unsafePerformIO)
-
 type Unitted = (Double, Txt.Text)
 auto :: Unitted
 auto = (0,"auto")
diff --git a/Graphics/Layout/Grid/CSS.hs b/Graphics/Layout/Grid/CSS.hs
index bd6259d..2862f4f 100644
--- a/Graphics/Layout/Grid/CSS.hs
+++ b/Graphics/Layout/Grid/CSS.hs
@@ -8,7 +8,7 @@ import qualified Data.Text as Txt
 import Data.Char (isAlphaNum)
 import Data.Maybe (fromMaybe)
 
-import Graphics.Layout.CSS.Internal
+import Graphics.Layout.CSS.Length
 import Graphics.Layout.Box
 import Graphics.Layout.Grid
 import Graphics.Layout
diff --git a/cattrap.cabal b/cattrap.cabal
index 35b49f2..37c1b26 100644
--- a/cattrap.cabal
+++ b/cattrap.cabal
@@ -20,7 +20,7 @@ library
   exposed-modules:     Graphics.Layout, Graphics.Layout.CSS, Graphics.Layout.Flow,
                         Graphics.Layout.Grid, Graphics.Layout.Grid.CSS,
                         Graphics.Layout.Box, Graphics.Layout.Arithmetic,
-                        Graphics.Layout.CSS.Internal, Graphics.Layout.CSS.Font,
+                        Graphics.Layout.CSS.Length, Graphics.Layout.CSS.Font,
                         Graphics.Layout.Inline, Graphics.Layout.Inline.CSS
   -- other-modules:
   -- other-extensions:
-- 
2.30.2