diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/app/Main.hs b/app/Main.hs index 005b63a..0368b77 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -67,7 +67,9 @@ import Options.Applicative ( Parser ) import Prelude hiding ( takeWhile ) import Servall.Types -import Servall.WikiParser ( parseWikiTemplates ) +import Servall.WikiParser ( parseWikiTemplates + , wikiFilter + ) import Servant ( (:<|>)(..) , (:>) , Application @@ -152,9 +154,10 @@ getWikiFormat name = do getOrgFormat :: Text -> Handler Text getOrgFormat name = do wiki <- getWikiFormat name - liftIO $ runIOorExplode $ readMediaWiki def wiki >>= writeOrg def - { writerWrapText = WrapNone - } + liftIO + $ runIOorExplode + $ (wikiFilter <$> readMediaWiki def wiki) + >>= writeOrg def { writerWrapText = WrapNone } getPandocFormat :: Text -> Handler Text getPandocFormat name = do |