This commit is contained in:
Daniel Gröber 2015-11-26 16:31:53 +01:00
parent 0d97646694
commit 1c0c97bdbb

View File

@ -330,7 +330,7 @@ resolveEntrypoint Cradle {..} c@GmComponent {..} = do
rms <- resolveModule env srcDirs `mapM` eps rms <- resolveModule env srcDirs `mapM` eps
return c { gmcEntrypoints = Set.fromList $ catMaybes rms } return c { gmcEntrypoints = Set.fromList $ catMaybes rms }
-- TODO: remember that he file from `main-is:` is always module `Main` and let -- TODO: remember that the file from `main-is:` is always module `Main` and let
-- ghc do the warning about it. Right now we run that module through -- ghc do the warning about it. Right now we run that module through
-- resolveModule like any other -- resolveModule like any other
resolveChEntrypoints :: FilePath -> ChEntrypoint -> IO [CompilationUnit] resolveChEntrypoints :: FilePath -> ChEntrypoint -> IO [CompilationUnit]