add extra link support to index page

make-pages/Info.hs

@@ -200,7 +200,8 @@ data IndexInfo =
   IndexInfo {
     title     :: !Text,
     galleries :: ![GalleryInfo],
-    footer    :: !Text
+    links     :: ![Link],
+    footer    :: !(Maybe Text)
   }
   deriving Show
 
@@ -208,7 +209,8 @@ instance FromYAML IndexInfo where
   parseYAML = YAML.withMap "index info" \m ->
     IndexInfo <$> m .:  "title"
               <*> m .:? "galleries" .!= []
-              <*> m .:? "footer"    .!= ""
+              <*> m .:? "links"     .!= []
+              <*> m .:? "footer"
 
 
 data Pair a b = Pair !a !b