From 5a5127a78cbcb50af7d95ad9ad7aa34261360083 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Tue, 14 Jul 2020 06:52:23 +0200
Subject: [PATCH] add field for cw but not using it yet

---
 make-pages/Info.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/make-pages/Info.hs b/make-pages/Info.hs
index d210e38..3b09f44 100644
--- a/make-pages/Info.hs
+++ b/make-pages/Info.hs
@@ -22,6 +22,7 @@ data Info =
     date        :: !Day,
     title       :: !(Maybe Text),
     artist      :: !(Maybe Artist), -- nothing = me, obv
+    warning     :: !(Maybe Text),
     tags        :: ![Text],
     nsfwTags    :: ![Text],
     description :: !(Maybe Text),
@@ -65,6 +66,7 @@ instance FromYAML Info where
     Info <$> m .:  "date"
          <*> m .:? "title"
          <*> m .:? "artist"
+         <*> m .:? "warning"
          <*> m .:? "tags" .!= []
          <*> m .:? "nsfwTags" .!= []
          <*> m .:? "description"