1 files changed, 8 insertions, 4 deletions

diff --git a/compiler/src/Compiler.hs b/compiler/src/Compiler.hs
index 1ec55c5..d92d8e9 100644
--- a/compiler/src/Compiler.hs
+++ b/compiler/src/Compiler.hs
@@ -85,7 +85,8 @@ loadGalleryIndex path =
   doesFileExist path >>= bool (return Nothing) decodeIndex
   where
     decodeIndex =
-      JSON.eitherDecodeFileStrict path
+      putStrLn ("Loading previous index:\t" ++ path)
+      >>  JSON.eitherDecodeFileStrict path
       >>= either (\err -> warn err >> return Nothing) (return . Just)
     warn = putStrLn . ("Warning:\tUnable to reuse existing index as cache: " ++)
 
@@ -136,10 +137,13 @@ compileGallery configPath inputDirPath outputDirPath outputIndexPath excludedDir
   do
     config <- readConfig $ inputGalleryConf configPath
 
+    putStrLn "Inventorying input files"
     inputDir <- readDirectory inputDirPath
     excludedCanonicalDirs <- mapM canonicalizePath excludedDirs
+
     let sourceFilter = galleryDirFilter config excludedCanonicalDirs
     let sourceTree = filterDir sourceFilter inputDir
+    putStrLn "Reading input metadata"
     inputTree <- readInputTree sourceTree
     let curatedInputTree = filterInputTree (inputTreeFilter config) inputTree
 
@@ -147,8 +151,8 @@ compileGallery configPath inputDirPath outputDirPath outputIndexPath excludedDir
     cachedIndex <- loadCachedIndex galleryIndexPath
     let cache = mkCache cachedIndex
 
-    let itemProc = itemProcessor config (cache Resource.properties)
-    let thumbnailProc = thumbnailProcessor config (cache Resource.thumbnail)
+    let itemProc = itemProcessor config (cache $ return . Resource.properties)
+    let thumbnailProc = thumbnailProcessor config (cache $ fmap return . Resource.thumbnail)
     let galleryBuilder = buildGalleryTree itemProc thumbnailProc (tagsFromDirectories config)
     resources <- galleryBuilder curatedInputTree
 
@@ -170,7 +174,7 @@ compileGallery configPath inputDirPath outputDirPath outputIndexPath excludedDir
         then return Nothing
         else loadGalleryIndex galleryIndexPath
 
-    mkCache :: Maybe GalleryIndex -> (GalleryItem -> a) -> Cache a
+    mkCache :: Maybe GalleryIndex -> (GalleryItem -> Maybe a) -> Cache a
     mkCache refGalleryIndex =
       if rebuildAll
         then const noCache