diff options
author | pacien | 2020-01-05 16:24:02 +0100 |
---|---|---|
committer | pacien | 2020-01-05 16:24:02 +0100 |
commit | 9dd271504160b624284dbc438cdc867b6ca0d0e7 (patch) | |
tree | 8701aa1897e664aab1f80a7952dbdc5c0c27624c /compiler/src/Compiler.hs | |
parent | abdf82bbfde843a87bd00746f52dafdd28f3f60b (diff) | |
download | ldgallery-9dd271504160b624284dbc438cdc867b6ca0d0e7.tar.gz |
compiler: enable warnings and fix them
GitHub: fixes #9
Diffstat (limited to 'compiler/src/Compiler.hs')
-rw-r--r-- | compiler/src/Compiler.hs | 14 |
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 | ||
31 | import Control.Monad (liftM2) | 31 | import Control.Monad (liftM2) |
32 | import Data.Function ((&)) | ||
33 | import Data.List (any) | 32 | import Data.List (any) |
34 | import Data.Maybe (isJust, fromMaybe) | 33 | import Data.Maybe (isJust, fromMaybe) |
35 | import Text.Regex (Regex, mkRegex, matchRegex) | 34 | import Text.Regex (Regex, mkRegex, matchRegex) |
@@ -39,7 +38,7 @@ import Data.Aeson (ToJSON) | |||
39 | import qualified Data.Aeson as JSON | 38 | import qualified Data.Aeson as JSON |
40 | 39 | ||
41 | import Config | 40 | import Config |
42 | import Input (decodeYamlFile, readInputTree) | 41 | import Input (readInputTree) |
43 | import Resource (buildGalleryTree, galleryCleanupResourceDir) | 42 | import Resource (buildGalleryTree, galleryCleanupResourceDir) |
44 | import Files | 43 | import Files |
45 | ( FileName | 44 | ( FileName |
@@ -55,11 +54,22 @@ import Processors | |||
55 | , skipCached, withCached ) | 54 | , skipCached, withCached ) |
56 | 55 | ||
57 | 56 | ||
57 | galleryConf :: String | ||
58 | galleryConf = "gallery.yaml" | 58 | galleryConf = "gallery.yaml" |
59 | |||
60 | indexFile :: String | ||
59 | indexFile = "index.json" | 61 | indexFile = "index.json" |
62 | |||
63 | viewerMainFile :: String | ||
60 | viewerMainFile = "index.html" | 64 | viewerMainFile = "index.html" |
65 | |||
66 | viewerConfFile :: String | ||
61 | viewerConfFile = "viewer.json" | 67 | viewerConfFile = "viewer.json" |
68 | |||
69 | itemsDir :: String | ||
62 | itemsDir = "items" | 70 | itemsDir = "items" |
71 | |||
72 | thumbnailsDir :: String | ||
63 | thumbnailsDir = "thumbnails" | 73 | thumbnailsDir = "thumbnails" |
64 | 74 | ||
65 | 75 | ||