[commit: haddock] ghc-7.6: Minor code simplification (e8c6e9b)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/e8c6e9beca2564016cacc4e85921f5ae99fa3dfd

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

commit e8c6e9beca2564016cacc4e85921f5ae99fa3dfd
Author: Simon Hengel <[email protected]>
Date:   Sat Oct 13 16:03:12 2012 +0200

    Minor code simplification

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

 src/Haddock.hs |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/src/Haddock.hs b/src/Haddock.hs
index c53b454..f79f347 100644
--- a/src/Haddock.hs
+++ b/src/Haddock.hs
@@ -272,8 +272,7 @@ readInterfaceFiles :: MonadIO m
                    -> [(DocPaths, FilePath)]
                    -> m [(DocPaths, InterfaceFile)]
 readInterfaceFiles name_cache_accessor pairs = do
-  mbPackages <- mapM tryReadIface pairs
-  return (catMaybes mbPackages)
+  catMaybes `liftM` mapM tryReadIface pairs
   where
     -- try to read an interface, warn if we can't
     tryReadIface (paths, file) = do