diff options
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/Main.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 31a9b914b6..73552d3038 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -694,13 +694,7 @@ addFlag s flag = liftEwM $ do doMake :: [(String,Maybe Phase)] -> Ghc () doMake srcs = do - let (hs_srcs, non_hs_srcs) = partition haskellish srcs - - haskellish (f,Nothing) = - looksLikeModuleName f || isHaskellSrcFilename f || '.' `notElem` f - haskellish (_,Just phase) = - phase `notElem` [ As True, As False, Cc, Cobjc, Cobjcxx, CmmCpp, Cmm - , StopLn] + let (hs_srcs, non_hs_srcs) = partition isHaskellishTarget srcs hsc_env <- GHC.getSession |