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

Follow MonadFail -> MonadError transition in Hufflepdf

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