diff --git a/site.hs b/site.hs
index c4d65fb..5bc941b 100644
--- a/site.hs
+++ b/site.hs
@@ -1,39 +1,37 @@
 --------------------------------------------------------------------------------
 {-# LANGUAGE OverloadedStrings #-}
+
 import qualified Data.Map as Map
-import           Data.Monoid (mappend)
-
-import           Text.Pandoc
-import           Text.Pandoc.Options
-import           Text.Pandoc.Highlighting
-import           Text.Pandoc.SideNote
-
-import           Hakyll
-import           Hakyll.Core.Compiler.Internal (compilerProvider, compilerAsk)
-import           Hakyll.Core.Provider (resourceFilePath)
-
+import Data.Monoid (mappend)
+import Hakyll
+import Hakyll.Core.Compiler.Internal (compilerAsk, compilerProvider)
+import Hakyll.Core.Provider (resourceFilePath)
+import Text.Pandoc
+import Text.Pandoc.Highlighting
+import Text.Pandoc.Options
+import Text.Pandoc.SideNote
 
 --------------------------------------------------------------------------------
 main :: IO ()
 main = hakyll $ do
   match "images/**" $ do
-    route   idRoute
+    route idRoute
     compile copyFileCompiler
 
   match "favicon.ico" $ do
-    route   idRoute
+    route idRoute
     compile copyFileCompiler
 
   match "files/*" $ do
-    route   idRoute
+    route idRoute
     compile copyFileCompiler
 
   match "css/*.css" $ do
-    route   idRoute
+    route idRoute
     compile compressCssCompiler
 
   match "css/et-book/**" $ do
-    route   idRoute
+    route idRoute
     compile copyFileCompiler
 
   match "bib/*" $ compile biblioCompiler
@@ -46,44 +44,47 @@ main = hakyll $ do
     let title = "Posts tagged \"" ++ tag ++ "\""
     route idRoute
     compile $ do
-        posts <- recentFirst =<< loadAll pattern
-        let ctx = constField "title" title
-                  <> listField "posts" (postCtxWithTags tags) (return posts)
-                  <> defaultContext
+      posts <- recentFirst =<< loadAll pattern
+      let ctx =
+            constField "title" title
+              <> listField "posts" (postCtxWithTags tags) (return posts)
+              <> defaultContext
 
-        makeItem ""
-            >>= loadAndApplyTemplate "templates/tag.html" ctx
-            >>= loadAndApplyTemplate "templates/default.html" ctx
-            >>= relativizeUrls
+      makeItem ""
+        >>= loadAndApplyTemplate "templates/tag.html" ctx
+        >>= loadAndApplyTemplate "templates/default.html" ctx
+        >>= relativizeUrls
 
   match "posts/*" $ do
     route $ setExtension "html"
-    compile $ do
-      underlying <- getUnderlying
-      toc <- getMetadataField underlying "toc"
-      customPandocCompiler (toc == Just "yes" || toc == Just "true")
-      >>= return . fmap demoteHeaders
-      >>= loadAndApplyTemplate "templates/post.html" (postCtxWithTags tags)
-      >>= saveSnapshot "content"
-      >>= loadAndApplyTemplate "templates/default.html" (postCtxWithTags tags)
-      >>= relativizeUrls
+    compile $
+      do
+        underlying <- getUnderlying
+        toc <- getMetadataField underlying "toc"
+        customPandocCompiler (toc == Just "yes" || toc == Just "true")
+        >>= return . fmap demoteHeaders
+        >>= loadAndApplyTemplate "templates/post.html" (postCtxWithTags tags)
+        >>= saveSnapshot "content"
+        >>= loadAndApplyTemplate "templates/default.html" (postCtxWithTags tags)
+        >>= relativizeUrls
 
   match (fromList ["contact.org", "cv.org", "skills.org", "projects.org"]) $ do
     route $ setExtension "html"
-    compile $ customPandocCompiler False
-      >>= return . fmap demoteHeaders
-      >>= loadAndApplyTemplate "templates/post.html"    postCtx
-      >>= loadAndApplyTemplate "templates/default.html" defaultContext
-      >>= relativizeUrls
+    compile $
+      customPandocCompiler False
+        >>= return . fmap demoteHeaders
+        >>= loadAndApplyTemplate "templates/post.html" postCtx
+        >>= loadAndApplyTemplate "templates/default.html" defaultContext
+        >>= relativizeUrls
 
   create ["archive.html"] $ do
     route idRoute
     compile $ do
       posts <- recentFirst =<< loadAll "posts/*"
       let archiveCtx =
-            listField "posts" postCtx (return posts) `mappend`
-            constField "title" "Archives"            `mappend`
-            defaultContext
+            listField "posts" postCtx (return posts)
+              `mappend` constField "title" "Archives"
+              `mappend` defaultContext
       makeItem ""
         >>= loadAndApplyTemplate "templates/archive.html" archiveCtx
         >>= loadAndApplyTemplate "templates/default.html" archiveCtx
@@ -102,8 +103,8 @@ main = hakyll $ do
     compile $ do
       posts <- fmap (take 10) $ recentFirst =<< loadAll "posts/*"
       let indexCtx =
-            listField "posts" postCtx (return posts) `mappend`
-            defaultContext
+            listField "posts" postCtx (return posts)
+              `mappend` defaultContext
       getResourceBody
         >>= applyAsTemplate indexCtx
         >>= loadAndApplyTemplate "templates/default.html" indexCtx
@@ -111,22 +112,21 @@ main = hakyll $ do
 
   match "templates/*" $ compile templateBodyCompiler
 
-
 --------------------------------------------------------------------------------
 feedConfiguration :: FeedConfiguration
 feedConfiguration =
   FeedConfiguration
-  { feedTitle       = "Dimitri Lozeve's Blog"
-  , feedDescription = "Recent posts"
-  , feedAuthorName  = "Dimitri Lozeve"
-  , feedAuthorEmail = "dimitri+web@lozeve.com"
-  , feedRoot        = "https://www.lozeve.com"
-  }
+    { feedTitle = "Dimitri Lozeve's Blog",
+      feedDescription = "Recent posts",
+      feedAuthorName = "Dimitri Lozeve",
+      feedAuthorEmail = "dimitri+web@lozeve.com",
+      feedRoot = "https://www.lozeve.com"
+    }
 
 postCtx :: Context String
 postCtx =
-  dateField "date" "%B %e, %Y" `mappend`
-  defaultContext
+  dateField "date" "%B %e, %Y"
+    `mappend` defaultContext
 
 postCtxWithTags :: Tags -> Context String
 postCtxWithTags tags = tagsField "tags" tags <> postCtx
@@ -140,36 +140,41 @@ customPandocCompiler withTOC =
   let customExtensions = extensionsFromList [Ext_latex_macros]
       defaultExtensions = writerExtensions defaultHakyllWriterOptions
       newExtensions = defaultExtensions `mappend` customExtensions
-      writerOptions = defaultHakyllWriterOptions
-        { writerExtensions = newExtensions
-        , writerHTMLMathMethod = MathJax ""
-        }
+      writerOptions =
+        defaultHakyllWriterOptions
+          { writerExtensions = newExtensions,
+            writerHTMLMathMethod = MathJax ""
+          }
       -- below copied from https://www.gwern.net/hakyll.hs
       -- below copied from https://github.com/jaspervdj/hakyll/blob/e8ed369edaae1808dffcc22d1c8fb1df7880e065/web/site.hs#L73 because god knows I don't know what this type bullshit is either:
       -- "When did it get so hard to compile a string to a Pandoc template?"
       tocTemplate =
-        either error id $ either (error . show) id $
-        runPure $ runWithDefaultPartials $
-        compileTemplate "" "<div id=\"toc\"><h1>Table of Contents</h1>$toc$</div>\n$body$"
-      writerOptionsWithTOC = writerOptions
-        { writerTableOfContents = True
-        , writerTOCDepth = 2
-        , writerTemplate = Just tocTemplate--"<h1>Table of Contents</h1>$toc$\n$body$"
-        }
+        either error id $
+          either (error . show) id $
+            runPure $
+              runWithDefaultPartials $
+                compileTemplate "" "<div id=\"toc\"><h1>Table of Contents</h1>$toc$</div>\n$body$"
+      writerOptionsWithTOC =
+        writerOptions
+          { writerTableOfContents = True,
+            writerTOCDepth = 2,
+            writerTemplate = Just tocTemplate -- "<h1>Table of Contents</h1>$toc$\n$body$"
+          }
       readerOptions = defaultHakyllReaderOptions
-  in do
-    csl <- load $ fromFilePath "csl/chicago-author-date.csl"
-    bib <- load $ fromFilePath "bib/bibliography.bib"
-    writePandocWith (if withTOC then writerOptionsWithTOC else writerOptions) <$>
-     (getResourceBody >>= readPandocBiblio readerOptions csl bib >>= traverse (return . usingSideNotes))
+   in do
+        csl <- load $ fromFilePath "csl/chicago-author-date.csl"
+        bib <- load $ fromFilePath "bib/bibliography.bib"
+        writePandocWith (if withTOC then writerOptionsWithTOC else writerOptions)
+          <$> (getResourceBody >>= readPandocBiblio readerOptions csl bib >>= traverse (return . usingSideNotes))
 
-type FeedRenderer = FeedConfiguration
-    -> Context String
-    -> [Item String]
-    -> Compiler (Item String)
+type FeedRenderer =
+  FeedConfiguration ->
+  Context String ->
+  [Item String] ->
+  Compiler (Item String)
 
 feedCompiler :: FeedRenderer -> Compiler (Item String)
 feedCompiler renderer =
   renderer feedConfiguration feedCtx
-  =<< fmap (take 10) . recentFirst
-  =<< loadAllSnapshots "posts/*" "content"
+    =<< fmap (take 10) . recentFirst
+    =<< loadAllSnapshots "posts/*" "content"