Skip to content
This repository has been archived by the owner on Aug 2, 2020. It is now read-only.

Commit

Permalink
Fix outdated comments.
Browse files Browse the repository at this point in the history
See #210.
  • Loading branch information
snowleopard committed Feb 26, 2016
1 parent 39f61a4 commit 0273e3e
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions src/Oracles/ModuleFiles.hs
Original file line number Diff line number Diff line change
Expand Up @@ -65,16 +65,16 @@ contextFiles context@Context {..} = do
zip modules <$> askOracle (ModuleFilesKey (stage, package))

-- | This is an important oracle whose role is to find and cache module source
-- files. It takes a 'Context', looks up corresponding source directories @dirs@
-- and sorted list of module names @modules@, and for each module, e.g.
-- @A.B.C@, returns a 'FilePath' of the form @dir/A/B/C.extension@, such that
-- @dir@ belongs to @dirs@, and file @dir/A/B/C.extension@ exists, or 'Nothing'
-- if there is no such file. If more than one matching file is found an error is
-- raised. For example, for @Context Stage1 compiler vanilla@, @dirs@ will
-- files. It takes a 'Stage' and a 'Package', looks up corresponding source
-- directories @dirs@ and a sorted list of module names @modules@, and for each
-- module, e.g. @A.B.C@, returns a 'FilePath' of the form @dir/A/B/C.extension@,
-- such that @dir@ belongs to @dirs@, and file @dir/A/B/C.extension@ exists, or
-- 'Nothing' if there is no such file. If more than one matching file is found
-- an error is raised. For example, for 'Stage1' and 'compiler', @dirs@ will
-- contain ["compiler/codeGen", "compiler/parser"], and @modules@ will contain
-- ["CodeGen.Platform.ARM", "Config", "Lexer"]; the oracle will produce a list
-- containing [Just "compiler/codeGen/CodeGen/Platform/ARM.hs", Nothing,
-- Just "compiler/parser/Lexer.x"].
-- Just "compiler/parser/Lexer.x"]. The oracle ignores @.(l)hs-boot@ files.
moduleFilesOracle :: Rules ()
moduleFilesOracle = void $ do
void $ addOracle $ \(ModuleFilesKey (stage, package)) -> do
Expand Down

0 comments on commit 0273e3e

Please sign in to comment.