blob: 8abef326b268a03f5467575e42fcab7ca949cc3f (
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
72
73
74
75
76
77
|
use dhall_core::*;
use dhall_generator::*;
#[derive(Debug, Clone)]
pub enum DhallConversionError {}
pub trait DhallType: Sized {
fn dhall_type() -> DhallExpr;
// fn as_dhall(&self) -> DhallExpr;
// fn from_dhall(e: DhallExpr) -> Result<Self, DhallConversionError>;
}
impl DhallType for bool {
fn dhall_type() -> DhallExpr {
dhall_expr!(Bool)
}
}
impl DhallType for Natural {
fn dhall_type() -> DhallExpr {
dhall_expr!(Natural)
}
}
impl DhallType for Integer {
fn dhall_type() -> DhallExpr {
dhall_expr!(Integer)
}
}
impl DhallType for String {
fn dhall_type() -> DhallExpr {
dhall_expr!(Text)
}
}
impl<A: DhallType, B: DhallType> DhallType for (A, B) {
fn dhall_type() -> DhallExpr {
let ta = A::dhall_type();
let tb = B::dhall_type();
dhall_expr!({ _1: ta, _2: tb })
}
}
impl<T: DhallType> DhallType for Option<T> {
fn dhall_type() -> DhallExpr {
let t = T::dhall_type();
dhall_expr!(Optional t)
}
}
impl<T: DhallType> DhallType for Vec<T> {
fn dhall_type() -> DhallExpr {
let t = T::dhall_type();
dhall_expr!(List t)
}
}
impl<'a, T: DhallType> DhallType for &'a T {
fn dhall_type() -> DhallExpr {
T::dhall_type()
}
}
impl<T> DhallType for std::marker::PhantomData<T> {
fn dhall_type() -> DhallExpr {
dhall_expr!({})
}
}
impl<T: DhallType, E: DhallType> DhallType for Result<T, E> {
fn dhall_type() -> DhallExpr {
let tt = T::dhall_type();
let te = E::dhall_type();
dhall_expr!(< Ok: tt | Err: te>)
}
}
|