From e2944b4d2ba4dce2e447dc32505597c0cd0519b6 Mon Sep 17 00:00:00 2001 From: Jaro Date: Fri, 7 Apr 2023 02:09:15 +0200 Subject: [PATCH] Fix style: white space in exports and imports. --- lib/Data/Text/ParagraphLayout.hs | 42 ++++++++-------- .../ParagraphLayout/ParagraphConstruction.hs | 8 ++-- lib/Data/Text/ParagraphLayout/Rect.hs | 18 +++---- .../Text/ParagraphLayout/Internal/Break.hs | 20 ++++---- .../Text/ParagraphLayout/Internal/Fragment.hs | 6 +-- .../ParagraphLayout/Internal/LineHeight.hs | 2 +- .../Internal/LinePagination.hs | 12 ++--- .../ParagraphLayout/Internal/Paginable.hs | 6 +-- .../ParagraphLayout/Internal/Paragraph.hs | 4 +- .../Internal/ParagraphConstruction.hs | 16 +++---- .../Internal/ParagraphLayout.hs | 22 ++++----- .../Text/ParagraphLayout/Internal/Plain.hs | 38 +++++++-------- .../ParagraphLayout/Internal/ProtoFragment.hs | 6 +-- .../Text/ParagraphLayout/Internal/Rect.hs | 20 ++++---- .../ParagraphLayout/Internal/ResolvedSpan.hs | 6 +-- src/Data/Text/ParagraphLayout/Internal/Run.hs | 6 +-- .../Text/ParagraphLayout/Internal/Span.hs | 10 ++-- .../ParagraphLayout/Internal/TextContainer.hs | 24 +++++----- .../Text/ParagraphLayout/Internal/Zipper.hs | 48 +++++++++---------- test/Data/Text/ParagraphLayout/FontLoader.hs | 26 +++++----- .../ParagraphLayout/Internal/BreakSpec.hs | 12 ++--- .../Text/ParagraphLayout/Internal/RunSpec.hs | 2 +- .../Text/ParagraphLayout/ParagraphData.hs | 38 +++++++-------- test/Data/Text/ParagraphLayout/SpanData.hs | 10 ++-- test/Data/Text/ParagraphLayoutSpec.hs | 6 +-- 25 files changed, 204 insertions(+), 204 deletions(-) diff --git a/lib/Data/Text/ParagraphLayout.hs b/lib/Data/Text/ParagraphLayout.hs index 028dd30..5a2a423 100644 --- a/lib/Data/Text/ParagraphLayout.hs +++ b/lib/Data/Text/ParagraphLayout.hs @@ -13,29 +13,29 @@ -- -- Y coordinates increase from bottom to top. module Data.Text.ParagraphLayout - (Fragment(Fragment, fragmentPen, fragmentRect, fragmentGlyphs) - ,LineHeight(Absolute, Normal) - ,PageContinuity(Break, Continue) - ,PageOptions - (PageOptions - ,pageCurrentHeight - ,pageNextHeight - ,pageOrphans - ,pageWidows + ( Fragment (Fragment, fragmentPen, fragmentRect, fragmentGlyphs) + , LineHeight (Absolute, Normal) + , PageContinuity (Break, Continue) + , PageOptions + ( PageOptions + , pageCurrentHeight + , pageNextHeight + , pageOrphans + , pageWidows ) - ,Paragraph(Paragraph) - ,ParagraphLayout(ParagraphLayout, paragraphRect, spanLayouts) - ,ParagraphOptions - (ParagraphOptions - ,paragraphFont - ,paragraphLineHeight - ,paragraphMaxWidth + , Paragraph (Paragraph) + , ParagraphLayout (ParagraphLayout, paragraphRect, spanLayouts) + , ParagraphOptions + ( ParagraphOptions + , paragraphFont + , paragraphLineHeight + , paragraphMaxWidth ) - ,Span(Span, spanLength, spanOptions) - ,SpanLayout(SpanLayout) - ,SpanOptions(SpanOptions, spanLanguage) - ,layoutPlain - ,paginate + , Span (Span, spanLength, spanOptions) + , SpanLayout (SpanLayout) + , SpanOptions (SpanOptions, spanLanguage) + , layoutPlain + , paginate ) where diff --git a/lib/Data/Text/ParagraphLayout/ParagraphConstruction.hs b/lib/Data/Text/ParagraphLayout/ParagraphConstruction.hs index 0b094f2..8fe9e65 100644 --- a/lib/Data/Text/ParagraphLayout/ParagraphConstruction.hs +++ b/lib/Data/Text/ParagraphLayout/ParagraphConstruction.hs @@ -10,10 +10,10 @@ -- -- > "ignored prefix" |<>| "ignored suffix" module Data.Text.ParagraphLayout.ParagraphConstruction - ((>|) - ,(>|<) - ,(|<) - ,(|<>|) + ( (>|) + , (>|<) + , (|<) + , (|<>|) ) where diff --git a/lib/Data/Text/ParagraphLayout/Rect.hs b/lib/Data/Text/ParagraphLayout/Rect.hs index 88b560e..a9e6d1d 100644 --- a/lib/Data/Text/ParagraphLayout/Rect.hs +++ b/lib/Data/Text/ParagraphLayout/Rect.hs @@ -1,15 +1,15 @@ -- | Representation of an axis-aligned rectangle on a 2D plane, with one of its -- corners being a designated origin point. module Data.Text.ParagraphLayout.Rect - (Rect(Rect, x_origin, y_origin, x_size, y_size) - ,height - ,width - ,x_max - ,x_min - ,x_terminus - ,y_max - ,y_min - ,y_terminus + ( Rect (Rect, x_origin, y_origin, x_size, y_size) + , height + , width + , x_max + , x_min + , x_terminus + , y_max + , y_min + , y_terminus ) where diff --git a/src/Data/Text/ParagraphLayout/Internal/Break.hs b/src/Data/Text/ParagraphLayout/Internal/Break.hs index c5d00fe..943e891 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Break.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Break.hs @@ -6,22 +6,22 @@ -- `Text` and the position of the break. The internal offset of the `Text` from -- the start of its underlying byte array is excluded. module Data.Text.ParagraphLayout.Internal.Break - (LineBreak(..) - ,locale - ,breaksDesc - ,subOffsetsDesc + ( LineBreak (..) + , locale + , breaksDesc + , subOffsetsDesc ) where import Data.Text (Text) import Data.Text.Foreign (lengthWord8) import Data.Text.ICU - (Break - ,Breaker - ,LocaleName(Locale) - ,breaksRight - ,brkPrefix - ,brkStatus + ( Break + , Breaker + , LocaleName (Locale) + , breaksRight + , brkPrefix + , brkStatus ) -- | Strictness levels of line-breaking rules, diff --git a/src/Data/Text/ParagraphLayout/Internal/Fragment.hs b/src/Data/Text/ParagraphLayout/Internal/Fragment.hs index 70154c4..2fbf90a 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Fragment.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Fragment.hs @@ -1,7 +1,7 @@ module Data.Text.ParagraphLayout.Internal.Fragment - (Fragment(..) - ,ShapedRun - ,shapedRun) + ( Fragment (..) + , ShapedRun + , shapedRun) where import Data.Int (Int32) diff --git a/src/Data/Text/ParagraphLayout/Internal/LineHeight.hs b/src/Data/Text/ParagraphLayout/Internal/LineHeight.hs index ff9a1de..40582a6 100644 --- a/src/Data/Text/ParagraphLayout/Internal/LineHeight.hs +++ b/src/Data/Text/ParagraphLayout/Internal/LineHeight.hs @@ -1,4 +1,4 @@ -module Data.Text.ParagraphLayout.Internal.LineHeight (LineHeight(..)) +module Data.Text.ParagraphLayout.Internal.LineHeight (LineHeight (..)) where import Data.Int (Int32) diff --git a/src/Data/Text/ParagraphLayout/Internal/LinePagination.hs b/src/Data/Text/ParagraphLayout/Internal/LinePagination.hs index 3b05cb2..441b7d5 100644 --- a/src/Data/Text/ParagraphLayout/Internal/LinePagination.hs +++ b/src/Data/Text/ParagraphLayout/Internal/LinePagination.hs @@ -12,17 +12,17 @@ -- (Preceding context may limit the space available on the given page, but it -- is assumed that the space on every following page can be used in full.) module Data.Text.ParagraphLayout.Internal.LinePagination - (Line - ,lineHeight - ,PageContinuity(Break, Continue) - ,bestSplit - ,paginateLines + ( Line + , lineHeight + , PageContinuity (Break, Continue) + , bestSplit + , paginateLines ) where import Data.Int (Int32) import Data.List (dropWhileEnd, genericLength) -import Data.List.NonEmpty (NonEmpty((:|))) +import Data.List.NonEmpty (NonEmpty ((:|))) import qualified Data.List.NonEmpty as NonEmpty -- | Representation of a line of text with a known height. diff --git a/src/Data/Text/ParagraphLayout/Internal/Paginable.hs b/src/Data/Text/ParagraphLayout/Internal/Paginable.hs index 8f00a4a..f2f1410 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Paginable.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Paginable.hs @@ -1,7 +1,7 @@ module Data.Text.ParagraphLayout.Internal.Paginable - (PageOptions(..) - ,Paginable - ,paginate + ( PageOptions (..) + , Paginable + , paginate ) where diff --git a/src/Data/Text/ParagraphLayout/Internal/Paragraph.hs b/src/Data/Text/ParagraphLayout/Internal/Paragraph.hs index 443f218..2340529 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Paragraph.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Paragraph.hs @@ -1,6 +1,6 @@ module Data.Text.ParagraphLayout.Internal.Paragraph - (Paragraph(..) - ,ParagraphOptions(..) + ( Paragraph (..) + , ParagraphOptions (..) ) where diff --git a/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs b/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs index 908ce0d..3d40771 100644 --- a/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs +++ b/src/Data/Text/ParagraphLayout/Internal/ParagraphConstruction.hs @@ -1,22 +1,22 @@ module Data.Text.ParagraphLayout.Internal.ParagraphConstruction - ((>|) - ,(>|<) - ,(|<) - ,(|<>|) + ( (>|) + , (>|<) + , (|<) + , (|<>|) ) where import Data.Text (pack) import Data.Text.Foreign (lengthWord8) -import Data.Text.Internal (Text(Text)) +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 + ( Paragraph (Paragraph) + , ParagraphOptions ) -import Data.Text.ParagraphLayout.Internal.Span (Span(Span), SpanOptions) +import Data.Text.ParagraphLayout.Internal.Span (Span (Span), SpanOptions) -- | Create first span with optional ignored suffix. infixr 5 >| diff --git a/src/Data/Text/ParagraphLayout/Internal/ParagraphLayout.hs b/src/Data/Text/ParagraphLayout/Internal/ParagraphLayout.hs index 3cfc1c4..6d73d77 100644 --- a/src/Data/Text/ParagraphLayout/Internal/ParagraphLayout.hs +++ b/src/Data/Text/ParagraphLayout/Internal/ParagraphLayout.hs @@ -1,15 +1,15 @@ module Data.Text.ParagraphLayout.Internal.ParagraphLayout - (ParagraphLayout(..) - ,appendFragments - ,emptyParagraphLayout - ,filterFragments - ,mapFragments - ,paragraphFragments - ,paragraphLayout - ,paragraphOriginX - ,paragraphOriginY - ,paragraphSpanBounds - ,shapedRuns + ( ParagraphLayout (..) + , appendFragments + , emptyParagraphLayout + , filterFragments + , mapFragments + , paragraphFragments + , paragraphLayout + , paragraphOriginX + , paragraphOriginY + , paragraphSpanBounds + , shapedRuns ) where diff --git a/src/Data/Text/ParagraphLayout/Internal/Plain.hs b/src/Data/Text/ParagraphLayout/Internal/Plain.hs index f0ec311..5061e29 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Plain.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Plain.hs @@ -1,32 +1,32 @@ module Data.Text.ParagraphLayout.Internal.Plain - (Paragraph(..) - ,ParagraphLayout(..) - ,ParagraphOptions(..) - ,SpanLayout(..) - ,layoutPlain + ( Paragraph (..) + , ParagraphLayout (..) + , ParagraphOptions (..) + , SpanLayout (..) + , layoutPlain ) where -import Control.Applicative (ZipList(ZipList), getZipList) +import Control.Applicative (ZipList (ZipList), getZipList) import Data.Int (Int32) import Data.List (mapAccumL) -import Data.List.NonEmpty (NonEmpty((:|)), nonEmpty, (<|)) +import Data.List.NonEmpty (NonEmpty ((:|)), nonEmpty, (<|)) import qualified Data.List.NonEmpty as NonEmpty import Data.Text.Foreign (lengthWord8) import Data.Text.Glyphize - (Buffer(..) - ,ContentType(ContentTypeUnicode) - ,Direction(..) - ,FontExtents(..) - ,GlyphInfo - ,GlyphPos - ,defaultBuffer - ,fontExtentsForDir - ,shape + ( Buffer (..) + , ContentType (ContentTypeUnicode) + , Direction (..) + , FontExtents (..) + , GlyphInfo + , GlyphPos + , defaultBuffer + , fontExtentsForDir + , shape ) import Data.Text.ICU (Breaker, LocaleName, breakCharacter, breakLine) -import qualified Data.Text.ICU as BreakStatus (Line(Hard)) -import Data.Text.Internal (Text(Text)) +import qualified Data.Text.ICU as BreakStatus (Line (Hard)) +import Data.Text.Internal (Text (Text)) import qualified Data.Text.Lazy as Lazy import Data.Text.ParagraphLayout.Internal.Break @@ -36,7 +36,7 @@ import Data.Text.ParagraphLayout.Internal.Paragraph import Data.Text.ParagraphLayout.Internal.ParagraphLayout import qualified Data.Text.ParagraphLayout.Internal.ProtoFragment as PF import Data.Text.ParagraphLayout.Internal.Rect -import Data.Text.ParagraphLayout.Internal.ResolvedSpan (WithSpan(WithSpan)) +import Data.Text.ParagraphLayout.Internal.ResolvedSpan (WithSpan (WithSpan)) import qualified Data.Text.ParagraphLayout.Internal.ResolvedSpan as RS import Data.Text.ParagraphLayout.Internal.Run import Data.Text.ParagraphLayout.Internal.Span diff --git a/src/Data/Text/ParagraphLayout/Internal/ProtoFragment.hs b/src/Data/Text/ParagraphLayout/Internal/ProtoFragment.hs index 1a7b8cc..32bfc16 100644 --- a/src/Data/Text/ParagraphLayout/Internal/ProtoFragment.hs +++ b/src/Data/Text/ParagraphLayout/Internal/ProtoFragment.hs @@ -1,11 +1,11 @@ module Data.Text.ParagraphLayout.Internal.ProtoFragment - (ProtoFragment(direction, advance, glyphs) - ,protoFragmentH + ( ProtoFragment (direction, advance, glyphs) + , protoFragmentH ) where import Data.Int (Int32) -import Data.Text.Glyphize (Direction, GlyphInfo, GlyphPos(x_advance)) +import Data.Text.Glyphize (Direction, GlyphInfo, GlyphPos (x_advance)) -- | A box fragment which has not been positioned yet. data ProtoFragment = ProtoFragment diff --git a/src/Data/Text/ParagraphLayout/Internal/Rect.hs b/src/Data/Text/ParagraphLayout/Internal/Rect.hs index 60ab347..c43bb1f 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Rect.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Rect.hs @@ -1,16 +1,16 @@ -- | Representation of an axis-aligned rectangle on a 2D plane, with one of its -- corners being a designated origin point. module Data.Text.ParagraphLayout.Internal.Rect - (Rect(Rect, x_origin, y_origin, x_size, y_size) - ,height - ,union - ,width - ,x_max - ,x_min - ,x_terminus - ,y_max - ,y_min - ,y_terminus + ( Rect (Rect, x_origin, y_origin, x_size, y_size) + , height + , union + , width + , x_max + , x_min + , x_terminus + , y_max + , y_min + , y_terminus ) where diff --git a/src/Data/Text/ParagraphLayout/Internal/ResolvedSpan.hs b/src/Data/Text/ParagraphLayout/Internal/ResolvedSpan.hs index 74d07d4..ca5c0df 100644 --- a/src/Data/Text/ParagraphLayout/Internal/ResolvedSpan.hs +++ b/src/Data/Text/ParagraphLayout/Internal/ResolvedSpan.hs @@ -1,7 +1,7 @@ module Data.Text.ParagraphLayout.Internal.ResolvedSpan - (ResolvedSpan(..) - ,WithSpan(WithSpan) - ,splitBySpanIndex + ( ResolvedSpan (..) + , WithSpan (WithSpan) + , splitBySpanIndex ) where diff --git a/src/Data/Text/ParagraphLayout/Internal/Run.hs b/src/Data/Text/ParagraphLayout/Internal/Run.hs index 106ea91..2ec23df 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Run.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Run.hs @@ -1,12 +1,12 @@ -module Data.Text.ParagraphLayout.Internal.Run (Run(..), spanToRuns) +module Data.Text.ParagraphLayout.Internal.Run (Run (..), spanToRuns) where import Data.List (mapAccumL) -import Data.List.NonEmpty (NonEmpty((:|))) +import Data.List.NonEmpty (NonEmpty ((:|))) import Data.Text (Text) import qualified Data.Text as Text import Data.Text.Foreign (dropWord8, lengthWord8, takeWord8) -import Data.Text.Glyphize (Direction(..)) +import Data.Text.Glyphize (Direction (..)) import qualified Data.Text.ICU.Char as ICUChar import Data.Text.ParagraphLayout.Internal.ResolvedSpan diff --git a/src/Data/Text/ParagraphLayout/Internal/Span.hs b/src/Data/Text/ParagraphLayout/Internal/Span.hs index 564313c..292c49a 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Span.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Span.hs @@ -1,9 +1,9 @@ module Data.Text.ParagraphLayout.Internal.Span - (Span(..) - ,SpanLayout(..) - ,SpanOptions(..) - ,spanFragments - ,spanRects + ( Span (..) + , SpanLayout (..) + , SpanOptions (..) + , spanFragments + , spanRects ) where diff --git a/src/Data/Text/ParagraphLayout/Internal/TextContainer.hs b/src/Data/Text/ParagraphLayout/Internal/TextContainer.hs index 35bca1f..e9d8772 100644 --- a/src/Data/Text/ParagraphLayout/Internal/TextContainer.hs +++ b/src/Data/Text/ParagraphLayout/Internal/TextContainer.hs @@ -1,20 +1,20 @@ module Data.Text.ParagraphLayout.Internal.TextContainer - (SeparableTextContainer - ,TextContainer - ,dropWhileEnd - ,dropWhileStart - ,getText - ,splitTextAt8 - ,splitTextsBy - ,trimTextsEnd - ,trimTextsEndPreserve - ,trimTextsStart - ,trimTextsStartPreserve + ( SeparableTextContainer + , TextContainer + , dropWhileEnd + , dropWhileStart + , getText + , splitTextAt8 + , splitTextsBy + , trimTextsEnd + , trimTextsEndPreserve + , trimTextsStart + , trimTextsStartPreserve ) where import Data.Foldable (toList) -import Data.List.NonEmpty (NonEmpty((:|)), nonEmpty) +import Data.List.NonEmpty (NonEmpty ((:|)), nonEmpty) import qualified Data.List.NonEmpty as NonEmpty import Data.Maybe (catMaybes) import Data.Text (Text) diff --git a/src/Data/Text/ParagraphLayout/Internal/Zipper.hs b/src/Data/Text/ParagraphLayout/Internal/Zipper.hs index 4b7e1b7..d9baf69 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Zipper.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Zipper.hs @@ -3,35 +3,35 @@ -- All measurements are in UTF-8 code points, each of which can be between -- 1 and 4 bytes long (inclusive). module Data.Text.ParagraphLayout.Internal.Zipper - (Zipper(preceding, following) - ,advanceBy - ,atEnd - ,atStart - ,next - ,recombine - ,splitAt - ,start - ,step + ( Zipper (preceding, following) + , advanceBy + , atEnd + , atStart + , next + , recombine + , splitAt + , start + , step ) where import Data.Text (measureOff, null, uncons) -import Data.Text.Internal (Text(Text), empty) +import Data.Text.Internal (Text (Text), empty) import Prelude - (Bool - ,Char - ,Eq - ,Int - ,Maybe(Just, Nothing) - ,Show - ,fmap - ,fst - ,otherwise - ,(+) - ,(-) - ,(.) - ,(<=) - ,(>=) + ( Bool + , Char + , Eq + , Int + , Maybe (Just, Nothing) + , Show + , fmap + , fst + , otherwise + , (+) + , (-) + , (.) + , (<=) + , (>=) ) -- | Represents a body of text with a read cursor which can be moved forward. diff --git a/test/Data/Text/ParagraphLayout/FontLoader.hs b/test/Data/Text/ParagraphLayout/FontLoader.hs index 578986a..68c9430 100644 --- a/test/Data/Text/ParagraphLayout/FontLoader.hs +++ b/test/Data/Text/ParagraphLayout/FontLoader.hs @@ -1,22 +1,22 @@ module Data.Text.ParagraphLayout.FontLoader - (arabicFont - ,devanagariFont - ,latinFont - ,loadFont - ,writeFontInfo + ( arabicFont + , devanagariFont + , latinFont + , loadFont + , writeFontInfo ) where import Data.ByteString (readFile) import Data.Text.Glyphize - (Font - ,FontOptions - ,createFace - ,createFontWithOptions - ,faceIndex - ,fontFace - ,fontPPEm - ,fontScale + ( Font + , FontOptions + , createFace + , createFontWithOptions + , faceIndex + , fontFace + , fontPPEm + , fontScale ) import Data.Word (Word) import Prelude (concat, return, show, ($), (++)) diff --git a/test/Data/Text/ParagraphLayout/Internal/BreakSpec.hs b/test/Data/Text/ParagraphLayout/Internal/BreakSpec.hs index 38c5ddb..35b2925 100644 --- a/test/Data/Text/ParagraphLayout/Internal/BreakSpec.hs +++ b/test/Data/Text/ParagraphLayout/Internal/BreakSpec.hs @@ -3,13 +3,13 @@ module Data.Text.ParagraphLayout.Internal.BreakSpec (spec) where import Control.Monad (forM_) import Data.Text (empty, pack, singleton) import Data.Text.ICU - (LocaleName(Locale) - ,breakCharacter - ,breakLine - ,breakSentence - ,breakWord + ( LocaleName (Locale) + , breakCharacter + , breakLine + , breakSentence + , breakWord ) -import qualified Data.Text.ICU as BreakStatus (Line(..), Word(..)) +import qualified Data.Text.ICU as BreakStatus (Line (..), Word (..)) import Test.Hspec import Data.Text.ParagraphLayout.Internal.Break diff --git a/test/Data/Text/ParagraphLayout/Internal/RunSpec.hs b/test/Data/Text/ParagraphLayout/Internal/RunSpec.hs index 784e938..2d5ba37 100644 --- a/test/Data/Text/ParagraphLayout/Internal/RunSpec.hs +++ b/test/Data/Text/ParagraphLayout/Internal/RunSpec.hs @@ -1,7 +1,7 @@ module Data.Text.ParagraphLayout.Internal.RunSpec (spec) where import Data.Text (pack) -import Data.Text.Glyphize (Direction(..), emptyFont) +import Data.Text.Glyphize (Direction (..), emptyFont) import Test.Hspec import Data.Text.ParagraphLayout.Internal.ResolvedSpan diff --git a/test/Data/Text/ParagraphLayout/ParagraphData.hs b/test/Data/Text/ParagraphLayout/ParagraphData.hs index d4243e7..2d6416c 100644 --- a/test/Data/Text/ParagraphLayout/ParagraphData.hs +++ b/test/Data/Text/ParagraphLayout/ParagraphData.hs @@ -1,26 +1,26 @@ module Data.Text.ParagraphLayout.ParagraphData - (arabicFillerParagraph - ,czechHelloParagraph - ,devanagariAccentParagraph - ,devanagariParagraph - ,devanagariPrefixedAccentParagraph - ,emptyParagraph - ,emptySpanParagraph - ,hardBreaksLTRParagraph - ,hardBreaksRTLParagraph - ,ligatureParagraph - ,loremIpsumParagraph - ,manySpacesParagraph - ,mixedLanguageLTRParagraph - ,mixedScriptSerbianParagraph - ,mixedScriptWordsParagraph - ,spannedArabicFillerParagraph - ,spannedLoremIpsumParagraph - ,trivialParagraph + ( arabicFillerParagraph + , czechHelloParagraph + , devanagariAccentParagraph + , devanagariParagraph + , devanagariPrefixedAccentParagraph + , emptyParagraph + , emptySpanParagraph + , hardBreaksLTRParagraph + , hardBreaksRTLParagraph + , ligatureParagraph + , loremIpsumParagraph + , manySpacesParagraph + , mixedLanguageLTRParagraph + , mixedScriptSerbianParagraph + , mixedScriptWordsParagraph + , spannedArabicFillerParagraph + , spannedLoremIpsumParagraph + , trivialParagraph ) where -import Data.Text.ParagraphLayout (Paragraph, ParagraphOptions, SpanOptions(..)) +import Data.Text.ParagraphLayout (Paragraph, ParagraphOptions, SpanOptions (..)) import Data.Text.ParagraphLayout.ParagraphConstruction -- | Span with text in the Czech language. diff --git a/test/Data/Text/ParagraphLayout/SpanData.hs b/test/Data/Text/ParagraphLayout/SpanData.hs index 87b2625..22a8644 100644 --- a/test/Data/Text/ParagraphLayout/SpanData.hs +++ b/test/Data/Text/ParagraphLayout/SpanData.hs @@ -1,14 +1,14 @@ module Data.Text.ParagraphLayout.SpanData - (emptySpan - ,czechHello - ,serbianMixedScript + ( emptySpan + , czechHello + , serbianMixedScript ) 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 (LineHeight (Normal)) +import Data.Text.ParagraphLayout.Internal.ResolvedSpan (ResolvedSpan (..)) emptySpan :: Font -> ResolvedSpan emptySpan font = ResolvedSpan diff --git a/test/Data/Text/ParagraphLayoutSpec.hs b/test/Data/Text/ParagraphLayoutSpec.hs index 8d79c99..5f51dce 100644 --- a/test/Data/Text/ParagraphLayoutSpec.hs +++ b/test/Data/Text/ParagraphLayoutSpec.hs @@ -1,9 +1,9 @@ module Data.Text.ParagraphLayoutSpec (spec) where import Data.Text.Glyphize - (Font - ,FontOptions(optionPPEm, optionScale) - ,defaultFontOptions + ( Font + , FontOptions (optionPPEm, optionScale) + , defaultFontOptions ) import Test.Hspec -- 2.30.2