diff options
Diffstat (limited to 'compiler/src/Gallery.hs')
-rw-r--r-- | compiler/src/Gallery.hs | 6 |
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) | |||
32 | import Data.Aeson (ToJSON, genericToJSON, genericToEncoding) | 32 | import Data.Aeson (ToJSON, genericToJSON, genericToEncoding) |
33 | import qualified Data.Aeson as JSON | 33 | import qualified Data.Aeson as JSON |
34 | 34 | ||
35 | importĀ Utils | 35 | import qualified Data.Set as Set |
36 | |||
36 | import Files | 37 | import Files |
37 | import Input | 38 | import Input |
38 | import Resource | 39 | import 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 | ||