src/F2Md/Types.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

module F2Md.Types where

import Data.Text (Text)
import Data.Time

data FeedMetadata = FeedMetadata
  { title :: Text,
    author :: Maybe Text,
    home :: Maybe Text
  }
  deriving (Show)

data Message = Message
  { from :: Text,
    subject :: Text,
    date :: Text,
    messageId :: Text,
    body :: Text
--    newsGroup :: Text
  }
  deriving (Show)