From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Wed, 12 Sep 2007 01:04:58 +0000 (+0000)
Subject: Fix type error in MkZipCfg
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9173913b7bb53e0ed3d64d1e28324007c77646cc

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!)
---

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
 
 {-