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

M 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" }