Commit 1ebe3eb6 authored by simonmar's avatar simonmar
Browse files

[project @ 2003-01-09 12:01:45 by simonmar]

Fix the stage2 build even more.
parent 1a4238bc
......@@ -232,9 +232,9 @@ moduleNameToModule hpt mn = do
_not_a_home_module -> do
maybe_stuff <- findModule mn
case maybe_stuff of
Nothing -> throwDyn (CmdLineError ("can't find module `"
Left _ -> throwDyn (CmdLineError ("can't find module `"
++ moduleNameUserString mn ++ "'"))
Just (m,_) -> return m
Right (m,_) -> return m
cmGetContext :: CmState -> IO ([String],[String])
cmGetContext CmState{ic=ic} =
......
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