diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-15 10:37:18 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-15 10:37:18 +0000 |
| commit | e3d5abbc06d83b06d1e205636d6dc18f91c81b1c (patch) | |
| tree | 21dad3f258a08f878f1fd842783471fc43566238 | |
| parent | 46972e7feceeef4daadd2beea5c6ab082ec05e38 (diff) | |
Remove duplicate Outputable instance for Data.Map.Map
| -rw-r--r-- | src/Haddock/GhcUtils.hs | 5 |
1 files changed, 0 insertions, 5 deletions
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 |