From 507174ff69b021a52e2e740e01d12a632b7cc317 Mon Sep 17 00:00:00 2001
From: Jaro <jaro@argonaut-constellation.org>
Date: Fri, 7 Apr 2023 08:44:20 +0200
Subject: [PATCH] Fix style: external vs internal imports.

---
 .../Text/ParagraphLayout/Internal/ParagraphConstruction.hs   | 4 +---
 src/Data/Text/ParagraphLayout/Internal/Run.hs                | 2 +-
 test/Data/Text/ParagraphLayout/SpanData.hs                   | 5 +++--
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs b/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs
index ca4740e..354df31 100644
--- a/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs
+++ b/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs
@@ -12,10 +12,8 @@ import Data.Text.Internal (Text (Text))
 import Data.Text.Internal.Lazy (chunk, empty)
 import qualified Data.Text.Internal.Lazy as Lazy
 import Data.Text.Lazy (toStrict)
+
 import Data.Text.ParagraphLayout.Internal.Plain
-    ( Paragraph (Paragraph)
-    , ParagraphOptions
-    )
 import Data.Text.ParagraphLayout.Internal.Span (Span (Span), SpanOptions)
 
 -- | Create first span with optional ignored suffix.
diff --git a/src/Data/Text/ParagraphLayout/Internal/Run.hs b/src/Data/Text/ParagraphLayout/Internal/Run.hs
index 2c8c8ff..72ac0b6 100644
--- a/src/Data/Text/ParagraphLayout/Internal/Run.hs
+++ b/src/Data/Text/ParagraphLayout/Internal/Run.hs
@@ -10,7 +10,7 @@ import Data.Text.Glyphize (Direction (..))
 import qualified Data.Text.ICU.Char as ICUChar
 
 import Data.Text.ParagraphLayout.Internal.ResolvedSpan
-import Data.Text.ParagraphLayout.Internal.Script (charScript)
+import Data.Text.ParagraphLayout.Internal.Script
 import Data.Text.ParagraphLayout.Internal.TextContainer
 import Data.Text.ParagraphLayout.Internal.Zipper
 
diff --git a/test/Data/Text/ParagraphLayout/SpanData.hs b/test/Data/Text/ParagraphLayout/SpanData.hs
index 22a8644..3b15576 100644
--- a/test/Data/Text/ParagraphLayout/SpanData.hs
+++ b/test/Data/Text/ParagraphLayout/SpanData.hs
@@ -7,8 +7,9 @@ where
 
 import Data.Text (pack)
 import Data.Text.Glyphize (Font)
-import Data.Text.ParagraphLayout (LineHeight (Normal))
-import Data.Text.ParagraphLayout.Internal.ResolvedSpan (ResolvedSpan (..))
+
+import Data.Text.ParagraphLayout.Internal.LineHeight
+import Data.Text.ParagraphLayout.Internal.ResolvedSpan
 
 emptySpan :: Font -> ResolvedSpan
 emptySpan font = ResolvedSpan
-- 
2.30.2