ngws
/
mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Also copy image files over

This commit is contained in:
Niels G. W. Serup 2024-10-05 15:58:55 +02:00
parent 7e23b55513
commit 47d086c115
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
byg/src/SiteGenerator.hs
View File

@ -3,6 +3,7 @@ module SiteGenerator (generateSite) where
import Types
import DependencyGenerator
import Control.Monad (forM_)
import Data.Text (Text)
thumbnailImageFilename :: Token FilePath -> DepGenM' FilePath
@ -67,3 +68,9 @@ generateSite = do
saveFile html $ joinPaths aboutDir indexName
styleName <- inject "style.css"
copyFile styleName (joinPaths outputDir styleName)
imgName <- inject "img"
imgPathOut <- joinPaths outputDir imgName
makeDir imgPathOut
forM_ ["mad-icon.png", "mad-logo.png"] $ \name -> do
val <- inject name
copyFile (joinPaths imgName val) (joinPaths imgPathOut val)