blob: 24db1094f0475c968fa236031b210c598c614db4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(.require
[library
[lux (.except)
[meta
[type
[primitive (.except)]]]]]
[//
[signature (.only Signature)]])
(primitive .public (Key k)
Signature
(def .public signature
(All (_ ?) (-> (Key ?) Signature))
(|>> representation))
(def .public (key signature sample)
(All (_ d) (-> Signature d (Key d)))
(abstraction signature))
)
|
