From 9d2b6cf4641cfff08ad556d3a7b24d4d63464eb5 Mon Sep 17 00:00:00 2001 From: pacien Date: Tue, 31 Dec 2019 00:16:29 +0100 Subject: compiler: populate the properties field in the index GitHub: closes #8 --- compiler/src/Compiler.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'compiler/src/Compiler.hs') diff --git a/compiler/src/Compiler.hs b/compiler/src/Compiler.hs index 048afc1..f15192f 100644 --- a/compiler/src/Compiler.hs +++ b/compiler/src/Compiler.hs @@ -37,7 +37,7 @@ import qualified Data.Aeson as JSON import Config import Input (decodeYamlFile, readInputTree) -import Resource (GalleryItem, buildGalleryTree, galleryCleanupResourceDir) +import Resource (buildGalleryTree, galleryCleanupResourceDir) import Files ( FileName , FSNode(..) @@ -48,11 +48,8 @@ import Files , ensureParentDir , isOutdated ) import Processors - ( dirFileProcessor - , itemFileProcessor - , thumbnailFileProcessor - , skipCached - , withCached ) + ( dirFileProcessor, itemFileProcessor, thumbnailFileProcessor + , skipCached, withCached ) writeJSON :: ToJSON a => FileName -> a -> IO () -- cgit v1.2.3