corrected 'all' to not use quiz twice..
This commit is contained in:
parent
86ff15762f
commit
a4110b3b94
@ -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) .
|
||||
|
Loading…
Reference in New Issue
Block a user