-beginMake fileish_args
- = do let (objs, mods) = partition objish_file fileish_args
- mapM (add v_Ld_inputs) objs
-
- case mods of
- [] -> throwDyn (UsageError "no input files")
- _ -> do dflags <- getDynFlags
- state <- cmInit Batch
- graph <- cmDepAnal state dflags mods
- (_, ok, _) <- cmLoadModules state dflags graph
- when (not ok) (exitWith (ExitFailure 1))
- return ()
+beginMake fileish_args = do
+ -- anything that doesn't look like a Haskell source filename or
+ -- a module name is passed straight through to the linker
+ let (inputs, objects) = partition looks_like_an_input fileish_args
+ mapM_ (add v_Ld_inputs) objects
+
+ case inputs of
+ [] -> throwDyn (UsageError "no input files")
+ _ -> do dflags <- getDynFlags
+ state <- cmInit Batch
+ graph <- cmDepAnal state dflags inputs
+ (_, ok_flag, _) <- cmLoadModules state dflags graph
+ when (failed ok_flag) (exitWith (ExitFailure 1))
+ return ()
+ where
+ looks_like_an_input m = haskellish_src_file m || '.' `notElem` m