From 208a46e3462151ebf35b01f0ba70a8ebe1f1934b Mon Sep 17 00:00:00 2001 From: Danielle McLean Date: Tue, 3 Oct 2017 13:17:34 +1100 Subject: [PATCH] Add a p-note to the h-card --- config/models | 1 + src/Foundation.hs | 1 + templates/hcard.hamlet | 1 + 3 files changed, 3 insertions(+) diff --git a/config/models b/config/models index 81efd2c..d613d3f 100644 --- a/config/models +++ b/config/models @@ -2,6 +2,7 @@ User ident Text sqltype=varchar(255) fullName Text sqltype=varchar(500) email Text sqltype=varchar(255) + note Text password Text Maybe sqltype=varchar(255) default=NULL UniqueUser ident deriving Typeable diff --git a/src/Foundation.hs b/src/Foundation.hs index f67bcc5..925a486 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -220,6 +220,7 @@ instance YesodAuth App where { userIdent = credsIdent creds , userFullName = "" , userEmail = "" + , userNote = "" , userPassword = Nothing } diff --git a/templates/hcard.hamlet b/templates/hcard.hamlet index 243ab1f..e930dd7 100644 --- a/templates/hcard.hamlet +++ b/templates/hcard.hamlet @@ -3,6 +3,7 @@ Avatar for #{userFullName user}

#{userFullName user} +

#{userNote user} #{userEmail user}