aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Resource.hs
diff options
context:
space:
mode:
authorpacien2020-01-08 08:35:36 +0100
committerpacien2020-01-08 08:35:36 +0100
commit8c8aede70760b7b0de4bfbe4aceaf90f640e03d6 (patch)
treec1c5dc29f24d9df20fe02fd4138b47fdc84849ac /compiler/src/Resource.hs
parent8471122afc244d57ad3acdcf5d8413831baf87a8 (diff)
downloadldgallery-8c8aede70760b7b0de4bfbe4aceaf90f640e03d6.tar.gz
compiler: canonicalise item/dir paths
Diffstat (limited to 'compiler/src/Resource.hs')
-rw-r--r--compiler/src/Resource.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/src/Resource.hs b/compiler/src/Resource.hs
index 0a4977a..e8ca889 100644
--- a/compiler/src/Resource.hs
+++ b/compiler/src/Resource.hs
@@ -111,7 +111,7 @@ buildGalleryTree processItem processThumbnail tagsFromDirectories galleryName in
111 , datetime = fromMaybe (toZonedTime modTime) (Input.datetime sidecar) 111 , datetime = fromMaybe (toZonedTime modTime) (Input.datetime sidecar)
112 , description = optMeta description "" 112 , description = optMeta description ""
113 , tags = unique ((optMeta tags []) ++ implicitParentTags parentTitles) 113 , tags = unique ((optMeta tags []) ++ implicitParentTags parentTitles)
114 , path = path 114 , path = "/" /> path
115 , thumbnail = processedThumbnail 115 , thumbnail = processedThumbnail
116 , properties = properties } 116 , properties = properties }
117 where 117 where
@@ -127,7 +127,7 @@ buildGalleryTree processItem processThumbnail tagsFromDirectories galleryName in
127 , datetime = fromMaybe (toZonedTime modTime) (mostRecentModTime processedItems) 127 , datetime = fromMaybe (toZonedTime modTime) (mostRecentModTime processedItems)
128 , description = "" 128 , description = ""
129 , tags = unique (aggregateTags processedItems ++ implicitParentTags parentTitles) 129 , tags = unique (aggregateTags processedItems ++ implicitParentTags parentTitles)
130 , path = path 130 , path = "/" /> path
131 , thumbnail = processedThumbnail 131 , thumbnail = processedThumbnail
132 , properties = Directory processedItems } 132 , properties = Directory processedItems }
133 where 133 where