Follow StreamContent's split between Raw and Clear 'getters'

2020-04-17 14:37:54 +02:00 · 2020-04-17 14:37:54 +02:00 · d4406b6aae
parent a64224d119
commit d4406b6aae
1 changed files with 1 additions and 1 deletions
--- 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