Fixed the extra links in papers

1 files changed, 5 insertions, 1 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 86db104..139d00c 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -88,6 +88,10 @@ main = do
                     }
             getResourceBody >>= applyAsTemplate (mkPaperContext (personCtxt "data/people.yaml" <> journalCtxt "data/journals.yaml") fixedPapers) >>= applyTemplate defaultTemplate baseCtxt
 
+    match "www/research/**/*.md" $ do
+        route $ dropParentRoute 1 `composeRoutes` setExtension ".html"
+        compile $ getResourceBody >>= myRenderPandoc >>= applyTemplate defaultTemplate baseCtxt
+
     match "www/teaching/index.md" $ do
         route $ dropParentRoute 1 `composeRoutes` setExtension ".html"
         -- compile $ myPandocCompiler >>= applyAsTemplate baseCtxt >>= applyTemplate defaultTemplate baseCtxt
@@ -121,7 +125,7 @@ main = do
 
     -- just copy anything else hanging around
     match "www/**" $ do
-        route idRoute
+        route $ dropParentRoute 1
         compile copyFileCompiler