aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Gallery.hs
diff options
context:
space:
mode:
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 3be62ad..ce52523 100644
--- a/compiler/src/Gallery.hs
+++ b/compiler/src/Gallery.hs
@@ -32,7 +32,8 @@ import Data.Maybe (fromMaybe)
32import Data.Aeson (ToJSON, genericToJSON, genericToEncoding) 32import Data.Aeson (ToJSON, genericToJSON, genericToEncoding)
33import qualified Data.Aeson as JSON 33import qualified Data.Aeson as JSON
34 34
35importĀ Utils 35import qualified Data.Set as Set
36
36import Files 37import Files
37import Input 38import Input
38import Resource 39import Resource
@@ -121,3 +122,6 @@ buildGalleryTree (DirResource dirItems path@(dirname:_) thumbnailPath) =
121 where 122 where
122 aggregateChildTags :: [GalleryItem] -> [Tag] 123 aggregateChildTags :: [GalleryItem] -> [Tag]
123 aggregateChildTags = unique . concatMap (\item -> tags (item::GalleryItem)) 124 aggregateChildTags = unique . concatMap (\item -> tags (item::GalleryItem))
125
126 unique :: Ord a => [a] -> [a]
127 unique = Set.toList . Set.fromList