Add link to consultancies.

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/)

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

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