blob: 3e3a5bdd54a5fbb319364b9c3e8cdbf3e10d894a (
plain)
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
|
snippet mod
module `substitute(substitute(expand('%:r'), '[/\\]','.','g'),'^\%(\l*\.\)\?','','')`
(
) where
import Prelude
${0}
snippet imp
import ${0:Data.List}
snippet impq
import ${1:Data.List} as ${0:List}
snippet fn0
${1:name} :: ${2:a}
$1 = ${0:undefined}
snippet fn
${1:fn} :: ${2:a} -> ${3:a}
$1 ${4}= ${0}
snippet fn1
${1:fn} :: ${2:a} -> ${3:a}
$1 ${4}= ${0}
snippet fn2
${1:fn} :: ${2:a} -> ${3:a} -> ${4:a}
$1 ${5}= ${0}
snippet fn3
${1:fn} :: ${2:a} -> ${3:a} -> ${4:a} -> ${5:a}
$1 ${6}= ${0}
snippet case
case ${1} of
${2} -> ${0}
snippet let
let
${1} = ${2}
in
${3}
snippet where
where
${1} = ${0}
snippet testunit
module Test.Main where
import Prelude
import Test.Unit (suite, test)
import Test.Unit.Main (runTest)
import Test.Unit.Assert as Assert
main = runTest do
suite "${1}" do
test "${2:the tests run}" do
Assert.equal
"Hello, world!"
"Hello, sailor!"
snippet if
if ${1} then
${2:${VISUAL}}
else
${0}
snippet doc
{-| ${0}
-}
snippet ty
type ${1:Type} =
${0}
snippet da
data ${1:Type} =
${0:$1}
snippet nty
newtype ${1:Type} =
${2:$1} ${0:Int}
snippet fi
foreign import ${1} :: ${2}
|
