1 files changed, 0 insertions(+), 6 deletions(-)

M 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