Commit 9173913b authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

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!)
parent c105c749
......@@ -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
{-
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment