newtype fixes, coercions for non-recursive newtypes now optional

[ghc-hetmet.git] / compiler / stranal / WwLib.lhs

diff --git a/compiler/stranal/WwLib.lhs b/compiler/stranal/WwLib.lhs
index f3af6f0..c4e78eb 100644 (file)
--- a/compiler/stranal/WwLib.lhs
+++ b/compiler/stranal/WwLib.lhs
@@ -240,7 +240,6 @@ mkWWargs fun_ty demands one_shots
              \ e -> Cast (wrap_fn_args e) co,
              \ e -> work_fn_args (Cast e (mkSymCoercion co)),
              res_ty)
-
   | notNull demands
   = getUniquesUs               `thenUs` \ wrap_uniqs ->
     let