From b0f8a010254b97548b5a7140cc7137c53e30f8cd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Apr 2017 14:58:32 -0400 Subject: server: email logs to user, and option to delete old ones --- Types.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Types.hs') diff --git a/Types.hs b/Types.hs index 7622f6a..c0eb7dd 100644 --- a/Types.hs +++ b/Types.hs @@ -15,6 +15,7 @@ import Val import Memory import JSON +import qualified Data.Text as T import Data.Time.Clock.POSIX -- | Things that the developer sees. @@ -123,6 +124,8 @@ instance DataSize Hash where data HashMethod = SHA512 | SHA3 deriving (Show, Generic, Eq) +type EmailAddress = T.Text + data Signature = Ed25519Signature Val | OtherSignature Val @@ -172,14 +175,14 @@ instance Monoid ElapsedTime where instance DataSize ElapsedTime where dataSize _ = 16 -- 128 bit Double +instance ToJSON ElapsedTime +instance FromJSON ElapsedTime + data AnyMessage = User (Message Seen) | Developer (Message Entered) deriving (Show, Generic) -instance ToJSON ElapsedTime -instance FromJSON ElapsedTime - instance DataSize AnyMessage where dataSize (User a) = dataSize a dataSize (Developer a) = dataSize a -- cgit v1.2.3