Add a 404 page

404.html

@@ -0,0 +1,8 @@
+---
+title: Page not found
+---
+
+<p>
+  The page you were looking for does not exist. You might want to
+  <a href="/">go back home</a>.
+</p>

index.html

@@ -16,17 +16,17 @@ title: Dimitri Lozeve
 />
 
 <p>
-  Hi! I am an Engineering Manager
-  at <a href="https://www.doctrine.fr/">Doctrine</a>, where we develop
-  productivity tools to help lawyers manage their data.
+  Hi! I am an Engineering Manager at
+  <a href="https://www.doctrine.fr/">Doctrine</a>, where we develop productivity
+  tools to help lawyers analyze and write their private documents.
 </p>
 
 <p>
-  I was previously a Research Engineer and Project Manager
-  at <a href="https://www.sysnav.fr/">Sysnav</a>, where I worked on
-  developing algorithms to help physicians measure the progress of
-  neuromuscular diseases. We used data from inertial sensors to
-  extract meaningful variables for pharmaceutical studies.
+  I was previously a Research Engineer and Project Manager at
+  <a href="https://www.sysnav.fr/">Sysnav</a>, where I worked on developing
+  algorithms to help physicians measure the progress of neuromuscular diseases.
+  We used data from inertial sensors to extract meaningful variables for
+  pharmaceutical studies.
 </p>
 
 <p>
@@ -41,10 +41,10 @@ title: Dimitri Lozeve
 </p>
 
 <p>
-  You can contact me by email (at firstname@lastname.com),
-  reach me via <a rel="me" href="https://mathstodon.xyz/@dlzv">Mastodon</a>,
-  find me on <a href="https://www.linkedin.com/in/dimitrilozeve">LinkedIn</a>,
-  or see what I do on <a href="https://github.com/dlozeve/">GitHub</a>.
+  You can contact me by email (at firstname@lastname.com), reach me via
+  <a rel="me" href="https://mathstodon.xyz/@dlzv">Mastodon</a>, find me on
+  <a href="https://www.linkedin.com/in/dimitrilozeve">LinkedIn</a>, or see what
+  I do on <a href="https://github.com/dlozeve/">GitHub</a>.
 </p>
 
 <h2>Recent Posts</h2>

site.hs

@@ -112,6 +112,12 @@ main = hakyll $ do
 
   match "templates/*" $ compile templateBodyCompiler
 
+  match "404.html" $ do
+    route idRoute
+    compile $
+      customPandocCompiler False
+        >>= loadAndApplyTemplate "templates/default.html" defaultContext
+
 --------------------------------------------------------------------------------
 feedConfiguration :: FeedConfiguration
 feedConfiguration =