diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-18 10:15:28 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-18 10:15:28 +0200 |
| commit | 49633289911c00addd869e38581ff73e23f13e5f (patch) | |
| tree | c3361bba5dc008bea2ed58c6725cd67706eb295a /src/Haddock | |
| parent | 61335db90219eba267de90da1742a5b38f856e52 (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.hs | 2 |
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 |