[server] fixing wikilinks

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