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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
