From d4406b6aae386ac3ae159b1974a9d46adb12cd0c Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Fri, 17 Apr 2020 14:37:54 +0200
Subject: [PATCH] Follow StreamContent's split between Raw and Clear 'getters'

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 323516e..3a14c4b 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -23,7 +23,7 @@ revealText = unlines . fmap fill . lines
 revealLayer :: Monad m => Layer -> m Layer
 revealLayer =
   atAll Objects
-    .atAll (Maybe_ StreamContent) $
+    .atAll (Maybe_ Clear) $
       return . revealText
 
 reveal :: Document -> IO Document