From 726c281cdd3824fcfdde34fe8d01f95416f7808c Mon Sep 17 00:00:00 2001 From: Nadrieril Date: Tue, 7 May 2019 16:01:24 +0200 Subject: Clean up some of the SubExpr type-changing methods --- dhall_syntax/src/core.rs | 40 +++++++++++----------------------------- 1 file changed, 11 insertions(+), 29 deletions(-) (limited to 'dhall_syntax/src/core.rs') diff --git a/dhall_syntax/src/core.rs b/dhall_syntax/src/core.rs index 7cdda64..2b76b9a 100644 --- a/dhall_syntax/src/core.rs +++ b/dhall_syntax/src/core.rs @@ -343,15 +343,11 @@ impl Expr { { trivial_result(self.traverse_embed(|x| Ok(map_embed(x)))) } +} - pub fn squash_embed( - &self, - f: impl FnMut(&E) -> SubExpr, - ) -> SubExpr - where - N: Clone, - { - trivial_result(self.visit(&mut visitor::SquashEmbedVisitor(f))) +impl Expr { + pub fn absurd(&self) -> Expr { + self.visit(&mut visitor::AbsurdVisitor) } } @@ -361,12 +357,6 @@ impl Expr { } } -impl Expr { - pub fn embed_absurd(&self) -> Expr { - self.visit(&mut visitor::EmbedAbsurdVisitor) - } -} - impl SubExpr { pub fn as_ref(&self) -> &Expr { &self.0.as_ref().0 @@ -380,17 +370,6 @@ impl SubExpr { SubExpr(Rc::new((x, None))) } - pub fn unnote(&self) -> SubExpr - where - E: Clone, - { - SubExpr::from_expr_no_note( - self.as_ref().visit(&mut visitor::UnNoteVisitor), - ) - } -} - -impl SubExpr { pub fn rewrap(&self, x: Expr) -> SubExpr where N: Clone, @@ -422,7 +401,10 @@ impl SubExpr { &'a self, map_expr: impl FnMut(&'a Self) -> Self, map_under_binder: impl FnMut(&'a Label, &'a Self) -> Self, - ) -> Self { + ) -> Self + where + N: Clone, + { match self.as_ref() { ExprF::Embed(_) => SubExpr::clone(self), // This calls ExprF::map_ref @@ -436,9 +418,9 @@ impl SubExpr { } } -impl SubExpr { - pub fn embed_absurd(&self) -> SubExpr { - self.rewrap(self.as_ref().embed_absurd()) +impl SubExpr { + pub fn absurd(&self) -> SubExpr { + SubExpr::from_expr_no_note(self.as_ref().absurd()) } } -- cgit v1.2.3