333

schangxiang@126.com

2025-09-19 18966e02fb573c7e2bb0c6426ed792b38b910940

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
define("ace/snippets/haskell",["require","exports","module"], function(require, exports, module) {
"use strict";
 
exports.snippetText = "snippet lang\n\
    {-# LANGUAGE ${1:OverloadedStrings} #-}\n\
snippet info\n\
    -- |\n\
    -- Module      :  ${1:Module.Namespace}\n\
    -- Copyright   :  ${2:Author} ${3:2011-2012}\n\
    -- License     :  ${4:BSD3}\n\
    --\n\
    -- Maintainer  :  ${5:email@something.com}\n\
    -- Stability   :  ${6:experimental}\n\
    -- Portability :  ${7:unknown}\n\
    --\n\
    -- ${8:Description}\n\
    --\n\
snippet import\n\
    import           ${1:Data.Text}\n\
snippet import2\n\
    import           ${1:Data.Text} (${2:head})\n\
snippet importq\n\
    import qualified ${1:Data.Text} as ${2:T}\n\
snippet inst\n\
    instance ${1:Monoid} ${2:Type} where\n\
        ${3}\n\
snippet type\n\
    type ${1:Type} = ${2:Type}\n\
snippet data\n\
    data ${1:Type} = ${2:$1} ${3:Int}\n\
snippet newtype\n\
    newtype ${1:Type} = ${2:$1} ${3:Int}\n\
snippet class\n\
    class ${1:Class} a where\n\
        ${2}\n\
snippet module\n\
    module `substitute(substitute(expand('%:r'), '[/\\\\]','.','g'),'^\\%(\\l*\\.\\)\\?','','')` (\n\
    )    where\n\
    `expand('%') =~ 'Main' ? \"\\n\\nmain = do\\n  print \\\"hello world\\\"\" : \"\"`\n\
\n\
snippet const\n\
    ${1:name} :: ${2:a}\n\
    $1 = ${3:undefined}\n\
snippet fn\n\
    ${1:fn} :: ${2:a} -> ${3:a}\n\
    $1 ${4} = ${5:undefined}\n\
snippet fn2\n\
    ${1:fn} :: ${2:a} -> ${3:a} -> ${4:a}\n\
    $1 ${5} = ${6:undefined}\n\
snippet ap\n\
    ${1:map} ${2:fn} ${3:list}\n\
snippet do\n\
    do\n\
        \n\
snippet λ\n\
    \\${1:x} -> ${2}\n\
snippet \\\n\
    \\${1:x} -> ${2}\n\
snippet <-\n\
    ${1:a} <- ${2:m a}\n\
snippet ←\n\
    ${1:a} <- ${2:m a}\n\
snippet ->\n\
    ${1:m a} -> ${2:a}\n\
snippet →\n\
    ${1:m a} -> ${2:a}\n\
snippet tup\n\
    (${1:a}, ${2:b})\n\
snippet tup2\n\
    (${1:a}, ${2:b}, ${3:c})\n\
snippet tup3\n\
    (${1:a}, ${2:b}, ${3:c}, ${4:d})\n\
snippet rec\n\
    ${1:Record} { ${2:recFieldA} = ${3:undefined}\n\
                , ${4:recFieldB} = ${5:undefined}\n\
                }\n\
snippet case\n\
    case ${1:something} of\n\
        ${2} -> ${3}\n\
snippet let\n\
    let ${1} = ${2}\n\
    in ${3}\n\
snippet where\n\
    where\n\
        ${1:fn} = ${2:undefined}\n\
";
exports.scope = "haskell";
 
});
                (function() {
                    window.require(["ace/snippets/haskell"], function(m) {
                        if (typeof module == "object" && typeof exports == "object" && module) {
                            module.exports = m;
                        }
                    });
                })();