From 4a7daab579c91004820c946bd0a2bee39f3cef34 Mon Sep 17 00:00:00 2001 From: Jaro Date: Fri, 7 Apr 2023 09:57:43 +0200 Subject: [PATCH] Fix style: small Prelude imports. --- .../Text/ParagraphLayout/Internal/Zipper.hs | 23 ++++++------------- test/Data/Text/ParagraphLayout/FontLoader.hs | 3 ++- 2 files changed, 9 insertions(+), 17 deletions(-) diff --git a/src/Data/Text/ParagraphLayout/Internal/Zipper.hs b/src/Data/Text/ParagraphLayout/Internal/Zipper.hs index d6f260c..74ca6aa 100644 --- a/src/Data/Text/ParagraphLayout/Internal/Zipper.hs +++ b/src/Data/Text/ParagraphLayout/Internal/Zipper.hs @@ -15,24 +15,15 @@ module Data.Text.ParagraphLayout.Internal.Zipper ) where +import Data.Bool (Bool, otherwise) +import Data.Char (Char) +import Data.Functor (fmap) +import Data.Int (Int) +import Data.Maybe (Maybe (Just, Nothing)) +import Data.Ord ((<=), (>=)) import Data.Text (measureOff, null, uncons) import Data.Text.Internal (Text (Text), empty) -import Prelude - ( Bool - , Char - , Eq - , Int - , Maybe (Just, Nothing) - , Show - , fmap - , fst - , otherwise - , (+) - , (-) - , (.) - , (<=) - , (>=) - ) +import Prelude (Eq, Show, fst, (+), (-), (.)) -- | Represents a body of text with a read cursor which can be moved forward. data Zipper = Zipper { preceding :: Text, following :: Text } diff --git a/test/Data/Text/ParagraphLayout/FontLoader.hs b/test/Data/Text/ParagraphLayout/FontLoader.hs index 68c9430..bfd24ed 100644 --- a/test/Data/Text/ParagraphLayout/FontLoader.hs +++ b/test/Data/Text/ParagraphLayout/FontLoader.hs @@ -8,6 +8,7 @@ module Data.Text.ParagraphLayout.FontLoader where import Data.ByteString (readFile) +import Data.List (concat, (++)) import Data.Text.Glyphize ( Font , FontOptions @@ -19,7 +20,7 @@ import Data.Text.Glyphize , fontScale ) import Data.Word (Word) -import Prelude (concat, return, show, ($), (++)) +import Prelude (return, show, ($)) import System.FilePath (FilePath, ()) import System.IO (IO, writeFile) -- 2.30.2