rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

add index page

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-16 16:29:32 +02:00
parent 375c6e833a
commit 3f025721c8
6 changed files with 63 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
make-pages/Main.hs
View file

@ -18,6 +18,7 @@ import Info (Info)
import Options
import qualified SinglePage
import qualified GalleryPage
import qualified IndexPage
#ifdef PRETTY_VERBOSE
import qualified Text.PrettyPrint as PP
@ -54,6 +55,12 @@ main2 (GalleryPage {title, files, output, dataDir}) = do
let page = GalleryPage.make title infos
writeOutput output page
main2 (IndexPage {file, output}) = do
ginfos <- readYAML file
printV $ "galleries" := ginfos
let page = IndexPage.make ginfos
writeOutput output page
main2 (DependSingle {file, nsfw, output, prefix, buildDir, dataDir}) = do
info <- readYAML file
printV $ "contents" := info