diff --git a/consultancies.md b/consultancies.md
new file mode 100644
index 0000000..b3e93f2
--- /dev/null
+++ b/consultancies.md
@@ -0,0 +1,10 @@
+
+# Consultancies
+
+If you'd like to be added, please send a pull request changing the
+[consultancies.md](https://github.com/haskell-servant/haskell-servant.github.io/blob/hakyll/consultancies.md)
+file, while maintaining alphabetical order.  Being listed does not imply
+endorsement by the *servant* maintainers.
+
+- [Turing Jump](https://turingjump.com/)
+- [Well-Typed](https://www.well-typed.com/)
diff --git a/index.html b/index.html
index 48e4970..5e49db6 100644
--- a/index.html
+++ b/index.html
@@ -4,6 +4,8 @@ <h2>Blog</h2>
 <p>Latest blog posts (<a href="/blog.html">all</a>)</p>
 $partial("templates/post-list.html")$
 
+$consultancies$
+
 <p class="notice">
 This work is licensed under the Creative Commons Attribution 4.0 International
 License. To view a copy of this license, visit
diff --git a/site.hs b/site.hs
index 6db2604..528f794 100644
--- a/site.hs
+++ b/site.hs
@@ -67,15 +67,19 @@ main = hakyllWith config $ do
 
     match "home.md" $ compile pandocCompiler
 
+    match "consultancies.md" $ compile pandocCompiler
+
     match "index.html" $ do
         route idRoute
         compile $ do
             posts <- recentFirst =<< loadAll "posts/*"
             homeContent <- loadBody "home.md"
+            consultanciesContent <- loadBody "consultancies.md"
             let indexCtx =
                     listField "posts" postCtx (return posts) `mappend`
                     constField "title" "Home"                `mappend`
                     field "home" (\_ -> return homeContent)  `mappend`
+                    field "consultancies" (\_ -> return consultanciesContent)  `mappend`
                     defaultContext
 
             getResourceBody