diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-06-17 19:10:29 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-06-17 19:10:29 +0100 |
| commit | 8739a6bd59f562bb550c915f1d2b2a327b748572 (patch) | |
| tree | 6ce78264c2b2e1103209c70f3560b816f884937e /src/Haddock/GhcUtils.hs | |
| parent | ab24835eadb99059934d7a14f86564eea6449257 (diff) | |
Fix build
Diffstat (limited to 'src/Haddock/GhcUtils.hs')
| -rw-r--r-- | src/Haddock/GhcUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs index 597ed123..f79acd94 100644 --- a/src/Haddock/GhcUtils.hs +++ b/src/Haddock/GhcUtils.hs @@ -179,11 +179,11 @@ reL :: a -> Located a reL = L undefined -instance Foldable Located where +instance Foldable (GenLocated l) where foldMap f (L _ x) = f x -instance Traversable Located where +instance Traversable (GenLocated l) where mapM f (L l x) = (return . L l) =<< f x |