From 150e9e43b8b854092d77cbbe2ad45afa42512074 Mon Sep 17 00:00:00 2001
From: Jaro <jaro@argonaut-constellation.org>
Date: Fri, 30 Jun 2023 22:48:43 +0200
Subject: [PATCH] Remove unused alignment function.

---
 src/Data/Text/ParagraphLayout/Internal/VerticalOffsets.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/Data/Text/ParagraphLayout/Internal/VerticalOffsets.hs b/src/Data/Text/ParagraphLayout/Internal/VerticalOffsets.hs
index 3a405ce..4d156c6 100644
--- a/src/Data/Text/ParagraphLayout/Internal/VerticalOffsets.hs
+++ b/src/Data/Text/ParagraphLayout/Internal/VerticalOffsets.hs
@@ -1,7 +1,6 @@
 module Data.Text.ParagraphLayout.Internal.VerticalOffsets
     ( VerticalOffsets (..)
     , alignBaseline
-    , alignLayoutTop
     , shift
     )
 where
@@ -42,11 +41,6 @@ shift d vo = vo
     , layoutBottom = layoutBottom vo + d
     }
 
--- | Set `layoutTop` to the given value and update all other coordinates
--- so that distances are preserved.
-alignLayoutTop :: Int32 -> VerticalOffsets -> VerticalOffsets
-alignLayoutTop x vo = shift (x - layoutTop vo) vo
-
 -- | Set `baseline` to the given value and update all other coordinates
 -- so that distances are preserved.
 alignBaseline :: Int32 -> VerticalOffsets -> VerticalOffsets
-- 
2.30.2