Commit c9820b25 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc

parents 13f3a319 541cc500
...@@ -382,7 +382,7 @@ hscParse' mod_summary = do ...@@ -382,7 +382,7 @@ hscParse' mod_summary = do
srcs0 = nub $ filter (not . (tmpDir dflags `isPrefixOf`)) srcs0 = nub $ filter (not . (tmpDir dflags `isPrefixOf`))
$ filter (not . (== n_hspp)) $ filter (not . (== n_hspp))
$ map FilePath.normalise $ map FilePath.normalise
$ filter (not . (== '<') . head) $ filter (not . (isPrefixOf "<"))
$ map unpackFS $ map unpackFS
$ srcfiles pst $ srcfiles pst
srcs1 = case ml_hs_file (ms_location mod_summary) of srcs1 = case ml_hs_file (ms_location mod_summary) of
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment