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 /

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

{-# OPTIONS -Wall #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

-- | Newtypes; foreign keys and such.

module Hpaste.Types.Newtypes
       (PasteId(..)
       ,ChannelId(..)
       ,LanguageId(..)
       ,ReportId(..))
       where

import Database.PostgreSQL.Simple
import Database.PostgreSQL.Simple.FromField
import Database.PostgreSQL.Simple.ToField

newtype PasteId = PasteId Integer
  deriving (Eq,FromField,ToField,Ord)

instance Show PasteId where show (PasteId pid) = show pid

newtype ReportId = ReportId Integer
  deriving (Integral,Real,Num,Ord,Eq,Enum,FromField,ToField)

instance Show ReportId where show (ReportId pid) = show pid

newtype ChannelId = ChannelId Integer
  deriving (Integral,Real,Num,Ord,Eq,Enum,FromField,ToField)

instance Show ChannelId where show (ChannelId pid) = show pid

newtype LanguageId = LanguageId Integer
  deriving (Integral,Real,Num,Ord,Eq,Enum,FromField,ToField)

instance Show LanguageId where show (LanguageId pid) = show pid
[See repo JSON]