X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplCore%2FOccurAnal.lhs;fp=compiler%2FsimplCore%2FOccurAnal.lhs;h=ba7d19295b83da21329ef12b160828fb3e4698a5;hp=c593e81eb668faa151fb31f1fc24a08bb3d93230;hb=3d56d5ae395675717d695172cacdd61c1565c42d;hpb=fe58dd2f091f5a4a0e83a5ec6da643a6711e3aed

diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs
index c593e81..ba7d192 100644
--- a/compiler/simplCore/OccurAnal.lhs
+++ b/compiler/simplCore/OccurAnal.lhs
@@ -101,11 +101,6 @@ occAnalBind env _ (NonRec binder rhs) body_usage
   | isTyVar binder	-- A type let; we don't gather usage info
   = (body_usage, [NonRec binder rhs])
 
-  | isCoVar binder	 -- A coercion let; again no usage info
-    	    		 -- We trust that it'll get inlined away
-			 -- as soon as it takes form (cv = Coercion co)
-  = (body_usage, [NonRec binder rhs])
-
   | not (binder `usedIn` body_usage)    -- It's not mentioned
   = (body_usage, [])