[commit: haddock] wip/D538: Remove Traversable instance for GenLocated SrcSpan (20a7845)

git at git.haskell.org git at git.haskell.org
Wed Jul 8 08:35:27 UTC 2015


Repository : ssh://git@git.haskell.org/haddock

On branch  : wip/D538
Link       : http://git.haskell.org/haddock.git/commitdiff/20a7845cf8f482d26a8accef7d2bd7658fbba5ae

>---------------------------------------------------------------

commit 20a7845cf8f482d26a8accef7d2bd7658fbba5ae
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Tue Dec 16 16:06:21 2014 +0200

    Remove Traversable instance for GenLocated SrcSpan


>---------------------------------------------------------------

20a7845cf8f482d26a8accef7d2bd7658fbba5ae
 haddock-api/src/Haddock/GhcUtils.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs
index c33c27b..918edab 100644
--- a/haddock-api/src/Haddock/GhcUtils.hs
+++ b/haddock-api/src/Haddock/GhcUtils.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleInstances, ViewPatterns #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# OPTIONS_HADDOCK hide #-}
@@ -186,12 +185,6 @@ before = (<) `on` getLoc
 instance Foldable (GenLocated l) where
   foldMap f (L _ x) = f x
 
-#if __GLASGOW_HASKELL__ < 709
-instance Traversable (GenLocated l) where
-  mapM f (L l x) = (return . L l) =<< f x
-  traverse f (L l x) = L l <$> f x
-#endif
-
 -------------------------------------------------------------------------------
 -- * NamedThing instances
 -------------------------------------------------------------------------------



More information about the ghc-commits mailing list