Handle empty optionals correctly

Closes #78

1 files changed, 2 insertions, 2 deletions

diff --git a/dhall/src/binary.rs b/dhall/src/binary.rs
index 8a23e76..72704de 100644
--- a/dhall/src/binary.rs
+++ b/dhall/src/binary.rs
@@ -107,7 +107,7 @@ fn cbor_value_to_dhall(data: &cbor::Value) -> Result<ParsedExpr, DecodeError> {
             }
             [U64(5), t] => {
                 let t = cbor_value_to_dhall(&t)?;
-                EmptyOptionalLit(t)
+                OldOptionalLit(None, t)
             }
             [U64(5), Null, x] => {
                 let x = cbor_value_to_dhall(&x)?;
@@ -116,7 +116,7 @@ fn cbor_value_to_dhall(data: &cbor::Value) -> Result<ParsedExpr, DecodeError> {
             [U64(5), t, x] => {
                 let x = cbor_value_to_dhall(&x)?;
                 let t = cbor_value_to_dhall(&t)?;
-                Annot(rc(NEOptionalLit(x)), t)
+                OldOptionalLit(Some(x), t)
             }
             [U64(6), x, y] => {
                 let x = cbor_value_to_dhall(&x)?;