From a9d3e5d3261a89ae736a6eda8a7e59d8660f108f Mon Sep 17 00:00:00 2001 From: Tissevert Date: Sat, 14 Mar 2020 16:27:56 +0100 Subject: [PATCH] Clean unused dependencies from Map + use a more defined Monad for the Box Chunks instance, hoping we will be able to clear the whole stack someday and stop requiring that RoContext type, unboxing and reboxing the FontSet for no good --- src/PDF/Content/Text.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/PDF/Content/Text.hs b/src/PDF/Content/Text.hs index 9826b88..16f0493 100644 --- a/src/PDF/Content/Text.hs +++ b/src/PDF/Content/Text.hs @@ -16,7 +16,7 @@ import Control.Monad.Fail (MonadFail(..)) import Control.Monad.Reader (MonadReader(..), ReaderT, asks, runReaderT) import Control.Monad.State (MonadState(..), StateT, evalStateT) import Data.Map ((!)) -import qualified Data.Map as Map (empty, fromList, singleton) +import qualified Data.Map as Map (empty, singleton) import Data.Text (Text, breakOn) import qualified Data.Text as Text (drop) import PDF.Box (Box(..)) @@ -46,7 +46,7 @@ decodeString input = do data Chunks = Chunks -instance (MonadReader FontSet m, MonadFail m) => Box m Chunks Content (Indexed Text) where +instance MonadFail m => Box (ReaderT FontSet m) Chunks Content (Indexed Text) where r Chunks content = do fontSet <- ask renderText fontSet content