X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUtils.lhs;h=72977be81ddf845ed8bbecc8556144db47a9b820;hb=62af0377c41ffcc76ae308e07e328106846f050c;hp=69a5135ecf41c0b974ed79fdc41c647a8dfb7c36;hpb=28cb2d6d40264796fb84da1f352490fd2b8eb27f;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs
index 69a5135..72977be 100644
--- a/compiler/coreSyn/CoreUtils.lhs
+++ b/compiler/coreSyn/CoreUtils.lhs
@@ -692,7 +692,7 @@ exprOkForSpeculation other_expr
 				-- A bit conservative: we don't really need
 				-- to care about lazy arguments, but this is easy
 
-    spec_ok (DFunId new_type) _ = not new_type 
+    spec_ok (DFunId _ new_type) _ = not new_type
          -- DFuns terminate, unless the dict is implemented with a newtype
 	 -- in which case they may not