Commit ca26fe60 authored by Simon Marlow's avatar Simon Marlow
Browse files

Complete the changes for #1205

Now ":load M" always searches for a module called "M", rather than
using a file called "M.hs" if that exists.  To get the file semantics
(i.e. not loading "M.o"), use ":load M.hs".
parent 68db7858
......@@ -454,6 +454,8 @@ guessTarget file (Just phase)
guessTarget file Nothing
| isHaskellSrcFilename file
= return (Target (TargetFile file Nothing) Nothing)
| looksLikeModuleName file
= return (Target (TargetModule (mkModuleName file)) Nothing)
| otherwise
= do exists <- doesFileExist hs_file
if exists
......@@ -463,7 +465,9 @@ guessTarget file Nothing
if exists
then return (Target (TargetFile lhs_file Nothing) Nothing)
else do
return (Target (TargetModule (mkModuleName file)) Nothing)
throwDyn (ProgramError (showSDoc $
text "target" <+> quotes (text file) <+>
text "is not a module name or a source file"))
where
hs_file = file <.> "hs"
lhs_file = file <.> "lhs"
......
Supports Markdown
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