From 6685687e83285cecdd0d0fdcb17be462cc6ec0a2 Mon Sep 17 00:00:00 2001 From: Jaro Date: Sun, 7 May 2023 16:22:18 +0200 Subject: [PATCH] Make paragraph direction explicit in tests. --- test/Data/Text/ParagraphLayout/Rich/ParagraphData.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test/Data/Text/ParagraphLayout/Rich/ParagraphData.hs b/test/Data/Text/ParagraphLayout/Rich/ParagraphData.hs index 40892e2..9014d86 100644 --- a/test/Data/Text/ParagraphLayout/Rich/ParagraphData.hs +++ b/test/Data/Text/ParagraphLayout/Rich/ParagraphData.hs @@ -14,8 +14,8 @@ import Data.Text.ParagraphLayout.Internal.Rich.Paragraph import Data.Text.ParagraphLayout.Internal.TextOptions import Data.Text.ParagraphLayout.Internal.TreeOfTexts -t_ :: TextOptions -t_ = defaultTextOptions DirLTR +tLTR :: TextOptions +tLTR = defaultTextOptions DirLTR b_ :: BoxOptions b_ = defaultBoxOptions @@ -40,7 +40,7 @@ loremIpsumParagraph font = constructParagraph ) (pack "z") where - t = t_ { textFont = font, textLanguage = "zxx" } + t = tLTR { textFont = font, textLanguage = "zxx" } mixedSizesParagraph :: (Font, Font) -> ParagraphOptions -> Paragraph String mixedSizesParagraph (bigFont, smallFont) = constructParagraph @@ -59,8 +59,8 @@ mixedSizesParagraph (bigFont, smallFont) = constructParagraph ) (pack "suffix") where - tBig = t_ { textFont = bigFont, textLanguage = "en" } - tSmall = t_ { textFont = smallFont, textLanguage = "en" } + tBig = tLTR { textFont = bigFont, textLanguage = "en" } + tSmall = tLTR { textFont = smallFont, textLanguage = "en" } nestedBoxesParagraph :: Font -> ParagraphOptions -> Paragraph String nestedBoxesParagraph font = constructParagraph @@ -77,4 +77,4 @@ nestedBoxesParagraph font = constructParagraph ) (pack "suffix") where - t = t_ { textFont = font, textLanguage = "en" } + t = tLTR { textFont = font, textLanguage = "en" } -- 2.30.2