From e3d5abbc06d83b06d1e205636d6dc18f91c81b1c Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 15 Sep 2010 10:37:18 +0000
Subject: Remove duplicate Outputable instance for Data.Map.Map

---
 src/Haddock/GhcUtils.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs
index c0911f70..fdc9a5c3 100644
--- a/src/Haddock/GhcUtils.hs
+++ b/src/Haddock/GhcUtils.hs
@@ -17,7 +17,6 @@ module Haddock.GhcUtils where
 
 
 import Data.Version
-import qualified Data.Map as Map
 import Control.Arrow
 import Data.Foldable hiding (concatMap)
 import Data.Traversable
@@ -75,10 +74,6 @@ lookupLoadedHomeModuleGRE mod_name = withSession $ \hsc_env ->
     _not_a_home_module -> return Nothing
 
 
-instance (Outputable a, Outputable b) => Outputable (Map.Map a b) where
-  ppr m = ppr (Map.toList m)
-
-
 isNameSym :: Name -> Bool
 isNameSym = isSymOcc . nameOccName
 
-- 
cgit v1.2.3