From 199936af5bb902c81f822b2dc57308dc25e18cfc Mon Sep 17 00:00:00 2001
From: Austin Seipp <aseipp@pobox.com>
Date: Fri, 31 Oct 2014 19:33:53 -0500
Subject: Remove overlapping pattern match

Signed-off-by: Austin Seipp <aseipp@pobox.com>
---
 src/Haddock/Backends/Xhtml.hs | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 38382871..85d2652a 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -587,7 +587,6 @@ processForMiniSynopsis mdl unicode qual ExportDecl { expItemDecl = L _loc decl0
         (DataDecl{})   -> [keyword "data" <+> b]
         (SynDecl{})    -> [keyword "type" <+> b]
         (ClassDecl {}) -> [keyword "class" <+> b]
-        _ -> []
     SigD (TypeSig lnames (L _ _)) ->
       map (ppNameMini Prefix mdl . nameOccName . getName . unLoc) lnames
     _ -> []
-- 
cgit v1.2.3