Paste server written in Haskell. Fork of Hpaste, fully freedom and privacy respecting and generally improved. At the time of writing there's an instance at <http://paste.rel4tion.org>.

[[ 🗃 ^aoqmo toothpaste ]] :: [📥 Inbox] [📤 Outbox] [🐤 Followers] [🤝 Collaborators] [🛠 Commits]

Clone

HTTPS: git clone https://vervis.peers.community/repos/aoqmo

SSH: git clone USERNAME@vervis.peers.community:aoqmo

Branches

Tags

hpaste :: src / Hpaste / Types /

Announcer.hs

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 Hpaste.Types.Announcer where

import Control.Concurrent
import Data.Text

-- | Announcer configuration.
data AnnounceConfig = AnnounceConfig {
    announceUser :: String
  , announcePass :: String
  , announceHost :: String
  , announcePort :: Int
} deriving (Show)

-- | An announcer.
data Announcer = Announcer
  { annChan :: Chan Announcement
  , annConfig :: AnnounceConfig
  }

-- | An annoucement.
data Announcement = Announcement
  { annFrom :: Text
  , annContent :: Text
  }
[See repo JSON]