diff options
| author | Simon Hengel <sol@typeful.net> | 2012-10-13 16:03:12 +0200 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2012-10-13 16:03:12 +0200 |
| commit | e8c6e9beca2564016cacc4e85921f5ae99fa3dfd (patch) | |
| tree | 962568f514d81c49db90a975788f8e7f32a53d5d /src | |
| parent | fa3a688967255a5d7f7dba8430de467dc0b9e57b (diff) | |
Minor code simplification
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Haddock.hs b/src/Haddock.hs index c53b4543..f79f3470 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 |