diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -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 |