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 /

Stepeval.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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

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

-- | Stepeval explanation view.

module Hpaste.View.Stepeval
  (page)
  where

import           Hpaste.Types
import           Hpaste.View.Highlight
import           Hpaste.View.Hlint
import           Hpaste.View.Html
import           Hpaste.View.Layout

import           Data.Monoid.Operator        ((++))
import           Data.Text                   (Text)
import           Language.Haskell.HLint
import           Prelude                     hiding ((++))
import           Text.Blaze.Html5            as H hiding (map)

-- | Render the page page.
page :: StepevalPage -> Html
page StepevalPage{..} =
  layoutPage $ Page {
    pageTitle = "Stepeval support"
  , pageBody = do explanation
                  viewPaste sePaste seHints
  , pageName = "paste"
  }
  
explanation :: Html
explanation = do
  lightSection "Stepeval" $ do
    p $ do "A program/library for evaluating "
           "a Haskell expression step-by-step. This web site uses it "
           "for stepping through provided expressions."
    p $ href ("https://github.com/benmachine/stepeval" :: Text)
             ("Repository for Stepeval" :: Text)
    p $ do "Stepeval comes with a simple Prelude of pure functions "
           "(see below) that can be used when stepping through "
           "expressions. This may be expanded upon in the future."
    p $ do "This web site will automatically include declarations "
           "from the paste as the expression to be evaluted."

-- | View a paste's details and content.
viewPaste :: Text -> [Suggestion] -> Html
viewPaste paste hints = do
  pasteDetails "Stepeval Prelude"
  pasteContent paste
  viewSuggestions hints

-- | List the details of the page in a dark section.
pasteDetails :: Text -> Html
pasteDetails title =
  darkNoTitleSection $ do
    pasteNav
    h2 $ toHtml title
    ul ! aClass "paste-specs" $ do
      detail "Language" $ "Haskell"
      detail "Raw" $ href ("/stepeval/raw" :: Text)
                          ("View raw link" :: Text)
    clear

    where detail title content = do
            li $ do strong (title ++ ":"); content

-- | Individual paste navigation.
pasteNav :: Html
pasteNav =
  H.div ! aClass "paste-nav" $ do
    href ("https://github.com/benmachine/stepeval" :: Text)
         ("Go to stepeval project" :: Text)

-- | Show the paste content with highlighting.
pasteContent :: Text -> Html
pasteContent paste =
  lightNoTitleSection $
    highlightHaskell paste
[See repo JSON]