aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2013-09-18 10:15:28 +0200
committerHerbert Valerio Riedel <hvr@gnu.org>2013-09-18 10:15:28 +0200
commit49633289911c00addd869e38581ff73e23f13e5f (patch)
treec3361bba5dc008bea2ed58c6725cd67706eb295a /src/Haddock
parent61335db90219eba267de90da1742a5b38f856e52 (diff)
Add missing `traverse` method for `GenLocated`
As `Traversable` needs at least one of `traverse` or `sequenceA` to be overridden. Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/GhcUtils.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs
index 82ccb590..467541fc 100644
--- a/src/Haddock/GhcUtils.hs
+++ b/src/Haddock/GhcUtils.hs
@@ -182,7 +182,7 @@ instance Foldable (GenLocated l) where
instance Traversable (GenLocated l) where
mapM f (L l x) = (return . L l) =<< f x
-
+ traverse f (L l x) = L l <$> f x
-------------------------------------------------------------------------------
-- * NamedThing instances