summaryrefslogtreecommitdiff
path: root/dhall/src/traits/dynamic_type.rs
blob: d03f8cd14abb007b850d0638810e093a916be9c6 (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
use crate::expr::*;
use crate::traits::StaticType;
use crate::typecheck::{TypeError, TypeMessage};
use dhall_core::context::Context;
use dhall_core::{Const, ExprF};
use std::borrow::Cow;

pub trait DynamicType {
    fn get_type<'a>(&'a self) -> Result<Cow<'a, Type>, TypeError>;
}

impl<T: StaticType> DynamicType for T {
    fn get_type<'a>(&'a self) -> Result<Cow<'a, Type>, TypeError> {
        Ok(Cow::Owned(T::get_static_type()))
    }
}

impl DynamicType for Type {
    fn get_type(&self) -> Result<Cow<'_, Type>, TypeError> {
        use TypeInternal::*;
        match &self.0 {
            Expr(e) => e.get_type(),
            SuperType => Err(TypeError::new(
                &Context::new(),
                dhall_core::rc(ExprF::Const(Const::Sort)),
                TypeMessage::Untyped,
            )),
        }
    }
}

impl DynamicType for Normalized {
    fn get_type(&self) -> Result<Cow<'_, Type>, TypeError> {
        match &self.1 {
            Some(t) => Ok(Cow::Borrowed(t)),
            None => Err(TypeError::new(
                &Context::new(),
                self.0.absurd(),
                TypeMessage::Untyped,
            )),
        }
    }
}

impl DynamicType for Typed {
    fn get_type(&self) -> Result<Cow<'_, Type>, TypeError> {
        match &self.1 {
            Some(t) => Ok(Cow::Borrowed(t)),
            None => Err(TypeError::new(
                &Context::new(),
                self.0.clone(),
                TypeMessage::Untyped,
            )),
        }
    }
}