summaryrefslogtreecommitdiff
path: root/dhall/src/semantics/core/value.rs
diff options
context:
space:
mode:
authorNadrieril2019-12-24 21:46:29 +0000
committerNadrieril2019-12-24 21:46:29 +0000
commitf5a588defc0ad22ce2f0d3b32ef8f0e22e43e672 (patch)
tree405bcef717b1a7ab0ec8de898ca5264698c39362 /dhall/src/semantics/core/value.rs
parent611d4ced3a5ffca8b9765971001995a216dbbb54 (diff)
Ensure inferred type is always in normal form
Diffstat (limited to 'dhall/src/semantics/core/value.rs')
-rw-r--r--dhall/src/semantics/core/value.rs3
1 files changed, 3 insertions, 0 deletions
diff --git a/dhall/src/semantics/core/value.rs b/dhall/src/semantics/core/value.rs
index ca7c4bc..6fa00ac 100644
--- a/dhall/src/semantics/core/value.rs
+++ b/dhall/src/semantics/core/value.rs
@@ -200,6 +200,9 @@ impl Value {
WHNF | NF => {}
}
}
+ pub(crate) fn normalize_nf(&self) {
+ self.as_internal_mut().normalize_nf();
+ }
pub(crate) fn app(&self, v: Value) -> Value {
let body_t = match &*self.get_type_not_sort().as_whnf() {