module F2Md.Types where

import Data.Text (Text)
import Data.Time

data FeedMetadata = FeedMetadata
  { fTitle :: Text
  , fAuthor :: Maybe Text
  , fHome :: Maybe Text
  , fUrl :: Text
  }
  deriving (Show)

data Message = Message
  { mFrom :: Text
  , mSubject :: Text
  , mDate :: ZonedTime
  , mMessageId :: Text
  , mBody :: Text
  , mFeed :: Text
  }
  deriving (Show)

-- date format: Sun, 08 May 2022 09:23:01 +0000