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

Language.hs

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

{-# OPTIONS -Wall #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

-- | Language model.

module Hpaste.Model.Language
  (getLanguages)
  where

import Hpaste.Types

import Snap.App

-- | Get the languages.
getLanguages :: Model c s [Language]
getLanguages =
  queryNoParams ["SELECT id,name,title"
                ,"FROM language"
                ,"WHERE visible"
                ,"ORDER BY ordinal ASC,title ASC"]
[See repo JSON]