diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-05-29 12:16:23 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2018-05-29 12:18:57 +0200 |
| commit | d14b1ec658b72f20aceed6835ae37e4c3d5bc5b9 (patch) | |
| tree | 05c681720dea26c79019502c121e74a69e02a205 /compiler/main/HscMain.hs | |
| parent | 36656b9dfbc46da3c915dc453c301d20463899ff (diff) | |
| download | haskell-d14b1ec658b72f20aceed6835ae37e4c3d5bc5b9.tar.gz | |
Minor refactoring
Diffstat (limited to 'compiler/main/HscMain.hs')
| -rw-r--r-- | compiler/main/HscMain.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index cf1a4fb108..21224ebc45 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -363,7 +363,7 @@ hscParse' mod_summary srcs0 = nub $ filter (not . (tmpDir dflags `isPrefixOf`)) $ filter (not . (== n_hspp)) $ map FilePath.normalise - $ filter (not . (isPrefixOf "<")) + $ filter (not . isPrefixOf "<") $ map unpackFS $ srcfiles pst srcs1 = case ml_hs_file (ms_location mod_summary) of |