aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Compiler.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/src/Compiler.hs')
-rw-r--r--compiler/src/Compiler.hs14
1 files changed, 12 insertions, 2 deletions
diff --git a/compiler/src/Compiler.hs b/compiler/src/Compiler.hs
index 5d30a26..f4b38d0 100644
--- a/compiler/src/Compiler.hs
+++ b/compiler/src/Compiler.hs
@@ -29,7 +29,6 @@ module Compiler
29 29
30 30
31import Control.Monad (liftM2) 31import Control.Monad (liftM2)
32import Data.Function ((&))
33import Data.List (any) 32import Data.List (any)
34import Data.Maybe (isJust, fromMaybe) 33import Data.Maybe (isJust, fromMaybe)
35import Text.Regex (Regex, mkRegex, matchRegex) 34import Text.Regex (Regex, mkRegex, matchRegex)
@@ -39,7 +38,7 @@ import Data.Aeson (ToJSON)
39import qualified Data.Aeson as JSON 38import qualified Data.Aeson as JSON
40 39
41import Config 40import Config
42import Input (decodeYamlFile, readInputTree) 41import Input (readInputTree)
43import Resource (buildGalleryTree, galleryCleanupResourceDir) 42import Resource (buildGalleryTree, galleryCleanupResourceDir)
44import Files 43import Files
45 ( FileName 44 ( FileName
@@ -55,11 +54,22 @@ import Processors
55 , skipCached, withCached ) 54 , skipCached, withCached )
56 55
57 56
57galleryConf :: String
58galleryConf = "gallery.yaml" 58galleryConf = "gallery.yaml"
59
60indexFile :: String
59indexFile = "index.json" 61indexFile = "index.json"
62
63viewerMainFile :: String
60viewerMainFile = "index.html" 64viewerMainFile = "index.html"
65
66viewerConfFile :: String
61viewerConfFile = "viewer.json" 67viewerConfFile = "viewer.json"
68
69itemsDir :: String
62itemsDir = "items" 70itemsDir = "items"
71
72thumbnailsDir :: String
63thumbnailsDir = "thumbnails" 73thumbnailsDir = "thumbnails"
64 74
65 75