blob: de6398522f2db580165646e23a060d54dd9c2a74 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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
|
