compiler: populate the properties field in the index

GitHub: closes #8

1 files changed, 3 insertions, 6 deletions

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 ()