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

Thanks.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

{-# OPTIONS -Wall -fno-warn-name-shadowing -fno-warn-unused-do-bind #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

-- | Thanks view.

module Hpaste.View.Thanks
  (page)
  where

import Hpaste.Types
import Hpaste.View.Html
import Hpaste.View.Layout

import Data.String
import Data.Text              (Text)
import Prelude                hiding ((++))
import Text.Blaze.Html5       as H hiding (map)

-- | Render the thanks5 page.
page :: String -> String -> Html
page title msg =
  layoutPage $ Page {
    pageTitle = fromString title
  , pageBody  = thanks title msg
  , pageName  = "thanks"
  }

thanks :: String -> String -> Html
thanks title msg = do
  darkSection (fromString title) $ do
    p $ toHtml msg
    p $ href ("/" :: Text)
             ("Go back home" :: Text)
[See repo JSON]