From 1a97f8957539e9192bdb9176a8eafd4da101a857 Mon Sep 17 00:00:00 2001
From: Nadrieril
Date: Tue, 7 May 2019 16:18:16 +0200
Subject: Small mistake

---
 dhall/src/phase/normalize.rs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'dhall/src/phase/normalize.rs')

diff --git a/dhall/src/phase/normalize.rs b/dhall/src/phase/normalize.rs
index a48c299..5dfcfb6 100644
--- a/dhall/src/phase/normalize.rs
+++ b/dhall/src/phase/normalize.rs
@@ -339,7 +339,9 @@ pub(crate) fn normalize_one_layer(expr: ExprF<Thunk, Label, X>) -> Value {
         ExprF::Embed(_) => unreachable!(),
         ExprF::Var(_) => unreachable!(),
         ExprF::Annot(x, _) => RetThunk(x),
-        ExprF::Lam(x, t, e) => RetValue(Lam(x.into(), t, e)),
+        ExprF::Lam(x, t, e) => {
+            RetValue(Lam(x.into(), TypeThunk::from_thunk(t), e))
+        }
         ExprF::Pi(x, t, e) => RetValue(Pi(
             x.into(),
             TypeThunk::from_thunk(t),
-- 
cgit v1.2.3