Tissevert
/
reveal
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Follow MonadFail -> MonadError transition in Hufflepdf

This commit is contained in:
Tissevert 2020-05-28 18:50:24 +02:00
parent f7f22953ea
commit 84eafcf826
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.hs
View File

@ -5,7 +5,7 @@ import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as BS (readFile, split, intercalate)
import qualified Data.ByteString.Lazy.Char8 as Lazy (writeFile)
import PDF (Layers(..), Document(..), UnifiedLayers(..), parseDocument, render)
import PDF.Box (Index(..), Maybe_(..), at, atAll)
import PDF.Box (Index(..), Either_(..), at, atAll)
import PDF.Layer (Layer, Objects(..))
import PDF.Object.Navigation (StreamContent(..))
import PDF.TextRendering (TextRendering(..), update)
@ -23,7 +23,7 @@ revealText = unlines . fmap fill . lines
revealLayer :: Monad m => Layer -> m Layer
revealLayer =
atAll Objects
.atAll (Maybe_ Clear) $
.atAll (Either_ Clear) $
return . revealText
reveal :: Document -> IO Document