@@ 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 }
@@ 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)