From a1482f14ce5e47e9e410512e4fdee5c17a7c5da7 Mon Sep 17 00:00:00 2001 From: Chris Wells Date: Sun, 8 Feb 2026 20:44:46 -0600 Subject: For now, just copied the open-access books webpage --- app/Main.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'app/Main.hs') 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 -- cgit v1.2.3