diff options
| -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 |