Commit 95660faf authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Improved handling of positions

parent 8fcca6b4
......@@ -72,7 +72,7 @@ docModule opts f = do
Just src -> do
toks <- liftCYM $ lexSource f src
typed@(Module _ m _ _ _) <- fullParse opts f src
return (m, program2html m $ genProgram typed toks)
return (m, program2html m $ genProgram f typed toks)
-- |Return the syntax tree of the source program 'src' (type 'Module'; see
-- Module "CurrySyntax").after inferring the types of identifiers.
......
......@@ -82,8 +82,8 @@ data IdentUsage
-- e.g. [typingParse, fullParse, parse]
-- @param lex-Result
-- @return program
genProgram :: Module -> [(Position, Token)] -> [Code]
genProgram m toks = tokenToCodes (first "") (idsModule m) toks
genProgram :: String -> Module -> [(Position, Token)] -> [Code]
genProgram fn m toks = tokenToCodes (first fn) (idsModule m) toks
-- @param code
-- @return qid if available
......
Markdown is supported
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