implement pronouns support

Signed-off-by: Xe Iaso <me@christine.website>

1 files changed, 22 insertions, 18 deletions

diff --git a/dhall/types/Author.dhall b/dhall/types/Author.dhall
index 79cab6c..47a850f 100644
--- a/dhall/types/Author.dhall
+++ b/dhall/types/Author.dhall
@@ -1,19 +1,23 @@
-{ Type =
-    { name : Text
-    , handle : Text
-    , image : Optional Text
-    , url : Optional Text
-    , sameAs : List Text
-    , jobTitle : Text
-    , inSystem : Bool
+let PronounSet = ./PronounSet.dhall
+
+in  { Type =
+        { name : Text
+        , handle : Text
+        , image : Optional Text
+        , url : Optional Text
+        , sameAs : List Text
+        , jobTitle : Text
+        , inSystem : Bool
+        , pronouns : PronounSet.Type
+        }
+    , default =
+      { name = ""
+      , handle = ""
+      , image = None Text
+      , url = None Text
+      , sameAs = [] : List Text
+      , jobTitle = ""
+      , inSystem = False
+      , pronouns = ../pronouns/she.dhall
+      }
     }
-, default =
-  { name = ""
-  , handle = ""
-  , image = None Text
-  , url = None Text
-  , sameAs = [] : List Text
-  , jobTitle = ""
-  , inSystem = False
-  }
-}