From 9173913b7bb53e0ed3d64d1e28324007c77646cc Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Wed, 12 Sep 2007 01:04:58 +0000 Subject: [PATCH] Fix type error in MkZipCfg - Fixes a bug introduced with the patch named 'check for unreachable code only with -DDEBUG' - Breakage occured only without -DDEBUG (which is 'valdiate's default!) --- compiler/cmm/MkZipCfg.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/cmm/MkZipCfg.hs b/compiler/cmm/MkZipCfg.hs index dc19197..8b0284c 100644 --- a/compiler/cmm/MkZipCfg.hs +++ b/compiler/cmm/MkZipCfg.hs @@ -327,7 +327,7 @@ note_this_code_becomes_unreachable = u -- Note [Branch follows branch] u tail = fail ("unreachable code: " ++ showSDoc (ppr tail)) #else -note_this_code_becomes_unreachable = return () +note_this_code_becomes_unreachable _ = return () #endif {- -- 1.7.10.4