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

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

This commit is contained in:
Tissevert 2020-04-17 14:37:54 +02:00
parent a64224d119
commit d4406b6aae
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Main.hs
View File

@ -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_ StreamContent) $ .atAll (Maybe_ Clear) $
return . revealText return . revealText
reveal :: Document -> IO Document reveal :: Document -> IO Document