Fix type error in MkZipCfg
authorManuel M T Chakravarty <chak@cse.unsw.edu.au>
Wed, 12 Sep 2007 01:04:58 +0000 (01:04 +0000)
committerManuel M T Chakravarty <chak@cse.unsw.edu.au>
Wed, 12 Sep 2007 01:04:58 +0000 (01:04 +0000)
- 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

index dc19197..8b0284c 100644 (file)
@@ -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
 
 {-