Commit 99efa3bc authored by simonmar's avatar simonmar
Browse files

[project @ 2003-01-09 11:22:19 by simonmar]

Fix the stage2 build.
parent 78dddbd2
...@@ -262,8 +262,8 @@ getLinkDeps hpt pit mods ...@@ -262,8 +262,8 @@ getLinkDeps hpt pit mods
-- so use the Finder to get a ModLocation... -- so use the Finder to get a ModLocation...
do { mb_stuff <- findModule mod_name ; do { mb_stuff <- findModule mod_name ;
case mb_stuff of { case mb_stuff of {
Nothing -> no_obj mod_name ; Left _ -> no_obj mod_name ;
Just (_, loc) -> do { Right (_, loc) -> do {
-- ...and then find the linkable for it -- ...and then find the linkable for it
mb_lnk <- findLinkable mod_name loc ; mb_lnk <- findLinkable mod_name loc ;
...@@ -271,7 +271,7 @@ getLinkDeps hpt pit mods ...@@ -271,7 +271,7 @@ getLinkDeps hpt pit mods
Nothing -> no_obj mod_name ; Nothing -> no_obj mod_name ;
Just lnk -> return lnk Just lnk -> return lnk
}}}} }}}}
\end{code} \end{code}
%************************************************************************ %************************************************************************
......
Markdown is supported
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