Translate to english

Put aside french translation, it will be considered afterward to show a
french version along the english version. For now, the page will be
english only.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index d66e67b..1e9e6d9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -10,8 +10,8 @@ import           Hakyll              (Compiler, Configuration (..),
 import qualified Hakyll              as H
 import qualified System.FilePath     as FilePath (replaceExtension,
                                                   takeDirectory)
-import qualified System.Process      as Process (readCreateProcess, shell,
-                                                 system)
+import qualified System.Process      as Process (rawSystem, readCreateProcess,
+                                                 shell, system)
 import qualified Text.Pandoc         as Pandoc
 
 main :: IO ()
@@ -115,6 +115,8 @@ writeLaTeX = traverse $ \pandoc ->
 configuration :: Configuration
 configuration = H.defaultConfiguration
   { destinationDirectory = "public"
+  , deploySite = const $
+      Process.rawSystem "rsync" [ "-avzh", "public/", "joris@guyonvarch.me:/var/www/guyonvarch.me" ]
   }
 
 metadataListField :: Context a