aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Gallery.hs
diff options
context:
space:
mode:
authorpacien2019-12-28 19:04:54 +0100
committerpacien2019-12-28 19:04:54 +0100
commit538996dc84b03eab1429ddd693334673b857c005 (patch)
tree65b8c0e31895b6a96d559e73a038ebcf6395dbf6 /compiler/src/Gallery.hs
parentc002224309f0149e7ef03b3037d1549f770f2f09 (diff)
downloadldgallery-538996dc84b03eab1429ddd693334673b857c005.tar.gz
compiler: parameterise gallery name
Diffstat (limited to 'compiler/src/Gallery.hs')
-rw-r--r--compiler/src/Gallery.hs6
1 files changed, 5 insertions, 1 deletions
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 @@
23#-} 23#-}
24 24
25module Gallery 25module Gallery
26 ( GalleryItem(..), buildGalleryTree 26 ( GalleryItem(..), buildGallery
27 ) where 27 ) where
28 28
29 29
@@ -128,3 +128,7 @@ buildGalleryTree (DirResource dirItems path@(dirname:_) thumbnail) =
128 128
129 unique :: Ord a => [a] -> [a] 129 unique :: Ord a => [a] -> [a]
130 unique = Set.toList . Set.fromList 130 unique = Set.toList . Set.fromList
131
132buildGallery :: String -> ResourceTree -> GalleryItem
133buildGallery galleryName resourceTree =
134 (buildGalleryTree resourceTree) { title = galleryName }