Stub objects are called foo_stub.o, not foo.stub_o. In other words,
findLinkable (aka maybe_getFileLinkable in the 5.04 branch) has never
worked.
addToFinderCache mod_name result
return result
addToFinderCache mod_name result
return result
-- -----------------------------------------------------------------------------
-- findLinkable isn't related to the other stuff in here,
-- but there' no other obvious place for it
-- -----------------------------------------------------------------------------
-- findLinkable isn't related to the other stuff in here,
-- but there' no other obvious place for it
findLinkable :: ModuleName -> ModLocation -> IO (Maybe Linkable)
findLinkable mod locn
| Just obj_fn <- ml_obj_file locn
findLinkable :: ModuleName -> ModLocation -> IO (Maybe Linkable)
findLinkable mod locn
| Just obj_fn <- ml_obj_file locn
then return Nothing
else
do let stub_fn = case splitFilename3 obj_fn of
then return Nothing
else
do let stub_fn = case splitFilename3 obj_fn of
- (dir, base, ext) -> dir ++ "/" ++ base ++ ".stub_o"
+ (dir, base, ext) -> dir ++ "/" ++ base ++ "_stub.o"
stub_exist <- doesFileExist stub_fn
obj_time <- getModificationTime obj_fn
if stub_exist
stub_exist <- doesFileExist stub_fn
obj_time <- getModificationTime obj_fn
if stub_exist
else return (Just (LM obj_time mod [DotO obj_fn]))
| otherwise
= return Nothing
else return (Just (LM obj_time mod [DotO obj_fn]))
| otherwise
= return Nothing
-\end{code}
\ No newline at end of file