put full dimensions on image
This commit is contained in:
parent
d8c22fef0f
commit
1e0b955029
5 changed files with 87 additions and 40 deletions
|
@ -51,7 +51,7 @@ main2 (SinglePage {file, dataDir, nsfw, output}) = do
|
|||
info <- readYAML file
|
||||
printV $ "contents" := info
|
||||
let dir = takeDirectory $ makeRelative dataDir file
|
||||
let page = SinglePage.make nsfw dir info
|
||||
page <- SinglePage.make nsfw dataDir dir info
|
||||
writeOutput output page
|
||||
|
||||
main2 (GalleryPage {files, prefix, index, output, dataDir}) = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue