corrected 'all' to not use quiz twice..

This commit is contained in:
Nicole Dresselhaus 2018-07-16 15:03:33 +02:00
parent 86ff15762f
commit a4110b3b94
Signed by: Drezil
GPG Key ID: AC88BB432537313A

View File

@ -12,7 +12,7 @@ import Text.Pandoc.Util.Filter.Styling
main :: IO ()
main = toJSONFilter $
fmap (walk (concatMap quiz) :: Pandoc -> Pandoc) .
fmap (walk (concatMap clean) :: Pandoc -> Pandoc) .
(walkM (fmap concat . mapM styling) :: Pandoc -> IO Pandoc) <=<
(walkM (fmap concat . mapM media) :: Pandoc -> IO Pandoc) .
(walk (concatMap quiz) :: Pandoc -> Pandoc) .