From 84eafcf826c08e5d5efb0e13c0bc30a59bb0821f Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Thu, 28 May 2020 18:50:24 +0200
Subject: [PATCH] Follow MonadFail -> MonadError transition in Hufflepdf

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 3a14c4b..678a490 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -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