From 7d32f1b8104574ab9b43e0f0f707c756938e827b Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 13 Sep 2022 15:45:00 +1000 Subject: [server] fixing wikilinks --- app/Main.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'app') 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 -- cgit v1.2.3