Comment
This commit is contained in:
parent
27dba0e9ae
commit
baf557d5bf
@ -321,7 +321,9 @@ resolveModule env srcDirs (Left fn') = liftIO $ do
|
|||||||
fn <- canonicalizePath fn''
|
fn <- canonicalizePath fn''
|
||||||
emn <- fileModuleName env fn
|
emn <- fileModuleName env fn
|
||||||
return $ case emn of
|
return $ case emn of
|
||||||
Left _ -> Nothing
|
Left _ -> Nothing -- TODO: should expose these errors otherwise
|
||||||
|
-- modules with preprocessor/parse errors are
|
||||||
|
-- going to be missing
|
||||||
Right mmn -> Just $
|
Right mmn -> Just $
|
||||||
case mmn of
|
case mmn of
|
||||||
Nothing -> mkMainModulePath fn
|
Nothing -> mkMainModulePath fn
|
||||||
|
Loading…
Reference in New Issue
Block a user