Remove a double line introduced a few commits back.

This line created some kind of infinite loop.

diff --git a/Normalize.hs b/Normalize.hs
index cceefc0cf7baf76c4135da6ef12cc7f9c5922988..208a8fa371a326141e4159ca7c1f781a12433231 100644 (file)
--- a/Normalize.hs
+++ b/Normalize.hs
@@ -43,7 +43,6 @@ import Pretty
 -- η abstraction
 --------------------------------
 eta, etatop :: Transform
-eta expr | is_fun expr && not (is_lam expr) = do
 eta expr | is_fun expr && not (is_lam expr) = do
   let arg_ty = (fst . Type.splitFunTy . CoreUtils.exprType) expr
   id <- mkInternalVar "param" arg_ty