From 119d837edce4d4c109539b6722fab162ab29c0b0 Mon Sep 17 00:00:00 2001
From: pacien
Date: Sun, 29 Dec 2019 09:54:55 +0100
Subject: compiler: allow fast recovery from partial gallery compilation

---
 compiler/src/Files.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'compiler/src/Files.hs')

diff --git a/compiler/src/Files.hs b/compiler/src/Files.hs
index fb46c33..079da61 100644
--- a/compiler/src/Files.hs
+++ b/compiler/src/Files.hs
@@ -131,8 +131,8 @@ remove path =
     putStrLn $ "Removing:\t" ++ path
     removePathForcibly path
 
-isOutdated :: FilePath -> FilePath -> IO Bool
-isOutdated ref target =
+isOutdated :: Bool -> FilePath -> FilePath -> IO Bool
+isOutdated onMissingTarget ref target =
   do
     refExists <- doesPathExist ref
     targetExists <- doesPathExist target
@@ -142,4 +142,4 @@ isOutdated ref target =
         targetTime <- getModificationTime target
         return (targetTime < refTime)
     else
-      return True
+      return onMissingTarget
-- 
cgit v1.2.3