For now, just copied the open-access books webpage

1 files changed, 6 insertions, 0 deletions

diff --git a/app/Main.hs b/app/Main.hs
index ec508d4..ea3ea01 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -17,6 +17,7 @@ import Hakyll.Aeson (yamlCompiler)
 import Hakyll.Paper (papersCompiler, mkPaperContext, FieldContext (..))
 import Hakyll.TeX.BibTeX (bibtexCompiler)
 import Hakyll.Web.Sass
+import Hakyll.Web.Redirect (createRedirects)
 import Text.Jasmine (minify)
 import WWW.Base (baseHakyll, domain, myHakyllWriterOptions, myHakyllReaderOptions)
 import WWW.Templates (myContext, defaultTemplate)
@@ -92,6 +93,11 @@ main = do
         -- compile $ myPandocCompiler >>= applyAsTemplate baseCtxt >>= applyTemplate defaultTemplate baseCtxt
         compile $ getResourceBody >>= applyAsTemplate baseCtxt >>= myRenderPandoc >>= applyTemplate defaultTemplate baseCtxt
 
+
+    createRedirects $
+      [ ("teaching/books/index.html", "/books/index.html")
+      ]
+
     match "www/links/index.md" $ do
         route $ dropParentRoute 1 `composeRoutes` setExtension ".html"
         compile $ getResourceBody >>= applyAsTemplate baseCtxt >>= myRenderPandoc >>= applyTemplate defaultTemplate baseCtxt