Also copy image files over

byg/src/SiteGenerator.hs

@@ -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)