From a4110b3b94fae24f577467405d4138bc8b8de5ab Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Mon, 16 Jul 2018 15:03:33 +0200
Subject: [PATCH] corrected 'all' to not use quiz twice..

---
 app/All.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/All.hs b/app/All.hs
index 2073cb6..d246f0d 100644
--- a/app/All.hs
+++ b/app/All.hs
@@ -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) .