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 / Controller /

Rss.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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

-- | An RSS feed of recent pastes.

module Hpaste.Controller.Rss where

import           Hpaste.Model.Paste
import           Hpaste.Model.Channel
import           Hpaste.Types

import           Control.Applicative
import           Control.Monad
import           Data.List
import           Data.Monoid
import           Data.String.ToString
import qualified Data.Text as T
import           Data.Text.Encoding
import           Safe
import           Snap.App
import           Snap.App.RSS

handle :: HPCtrl ()
handle = do
  cid <- getChannelId
  case cid of
    Nothing -> error "need a channel"
    Just cid' -> do
      pastes <- model $ getLatestPastes cid
      outputRSS "#haskell pastes"
                "http://lpaste.net/channel/haskell.rss"
                (map (\Paste{..} -> (pasteDate,pasteTitle,pastePaste, T.pack $
                                    "http://lpaste.net/" ++ show pasteId))
                     pastes)

getChannelId :: HPCtrl (Maybe ChannelId)
getChannelId = do
  chname <- fmap (fmap decodeUtf8) $ getParam "channel"
  case chname of
    Nothing -> return Nothing
    Just chname -> do
      channels <- model $ getChannels
      case find ((==("#" <> chname)) . channelName) channels of
        Nothing -> return Nothing
        Just Channel{..} -> return (return channelId)
[See repo JSON]