Replace the fake instance of Box for Content over Indexed Text with the true one using renderText
This commit is contained in:
parent
c4c3e35e09
commit
d3f1b97f3a
|
@ -46,16 +46,10 @@ decodeString input = do
|
||||||
|
|
||||||
data Chunks = Chunks
|
data Chunks = Chunks
|
||||||
|
|
||||||
instance Monad m => Box m Chunks Content (Indexed Text) where
|
|
||||||
r Chunks _ = return $ Map.fromList [(Id 17, "Test")]
|
|
||||||
|
|
||||||
{-
|
|
||||||
instance (MonadReader FontSet m, MonadFail m) => Box m Chunks Content (Indexed Text) where
|
instance (MonadReader FontSet m, MonadFail m) => Box m Chunks Content (Indexed Text) where
|
||||||
r Chunks content = do
|
r Chunks content = do
|
||||||
fontSet <- ask
|
fontSet <- ask
|
||||||
renderText fontSet content
|
renderText fontSet content
|
||||||
-}
|
|
||||||
|
|
||||||
|
|
||||||
renderText :: MonadFail m => FontSet -> Content -> m (Indexed Text)
|
renderText :: MonadFail m => FontSet -> Content -> m (Indexed Text)
|
||||||
renderText fontSet (Content.Content {contentUnits, Content.indexedInstructions}) =
|
renderText fontSet (Content.Content {contentUnits, Content.indexedInstructions}) =
|
||||||
|
|
Loading…
Reference in New Issue
Block a user