From 538996dc84b03eab1429ddd693334673b857c005 Mon Sep 17 00:00:00 2001
From: pacien
Date: Sat, 28 Dec 2019 19:04:54 +0100
Subject: compiler: parameterise gallery name

---
 compiler/src/Gallery.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/compiler/src/Gallery.hs b/compiler/src/Gallery.hs
index f12eddb..1fa4036 100644
--- a/compiler/src/Gallery.hs
+++ b/compiler/src/Gallery.hs
@@ -23,7 +23,7 @@
 #-}
 
 module Gallery
-  ( GalleryItem(..), buildGalleryTree
+  ( GalleryItem(..), buildGallery
   ) where
 
 
@@ -128,3 +128,7 @@ buildGalleryTree (DirResource dirItems path@(dirname:_) thumbnail) =
 
     unique :: Ord a => [a] -> [a]
     unique = Set.toList . Set.fromList
+
+buildGallery :: String -> ResourceTree -> GalleryItem
+buildGallery galleryName resourceTree =
+  (buildGalleryTree resourceTree) { title = galleryName }
-- 
cgit v1.2.3