Replace the fake instance of Box for Content over Indexed Text with the true one using renderText

src/PDF/Content/Text.hs

@@ -46,16 +46,10 @@ decodeString input = do
 
 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
   r Chunks content = do
     fontSet <- ask
     renderText fontSet content
--}
-
 
 renderText :: MonadFail m => FontSet -> Content -> m (Indexed Text)
 renderText fontSet (Content.Content {contentUnits, Content.indexedInstructions}) =