From ffbf4bed87b73d541acc8943b172d7d20523b501 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 26 Mar 2009 18:37:16 +0000
Subject: [PATCH] Removed a few bits of awkwardness in Unnest

---
 transformations/Unnest.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/transformations/Unnest.hs b/transformations/Unnest.hs
index c1643f4..2a3f458 100644
--- a/transformations/Unnest.hs
+++ b/transformations/Unnest.hs
@@ -180,9 +180,9 @@ removeNesting = pass "Pull nested definitions to top level"
   [Prop.nestedPulled]
   (passOnlyOnAST "removeNesting" $ \s ->
        do pushPullContext
-          s' <- (makeRecurse ops) s >>= applyPulled
+          s' <- recurse s >>= applyPulled
           popPullContext
-          return $ fromJust $ cast s')
+          return s')
   where
     ops :: Ops
     ops = baseOp `extOpS` doStructured