This commit is contained in:
Daniel Gröber 2015-06-07 01:53:41 +02:00
parent 27dba0e9ae
commit baf557d5bf

View File

@ -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