From a7c001d33e09211a95b0f29caffe2d5780ccf0e0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 May 2019 19:21:29 +0200
Subject: 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.
---
 src/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3