Separated formatters into multiple files.

This commit is contained in:
Vidar Holen 2015-08-15 12:51:13 -07:00
parent 72eeafe002
commit 67cfcfd206
11 changed files with 419 additions and 234 deletions

View file

@ -2223,8 +2223,8 @@ runParser sys p filename contents =
sys)
initialSystemState
parseShell sys contents = do
(result, state) <- runParser sys (parseWithNotes readScript) "" contents
parseShell sys name contents = do
(result, state) <- runParser sys (parseWithNotes readScript) name contents
case result of
Right (script, tokenMap, notes) ->
return ParseResult {
@ -2267,7 +2267,7 @@ posToPos sp = Position {
parseScript :: Monad m =>
SystemInterface m -> ParseSpec -> m ParseResult
parseScript sys spec =
parseShell sys (psScript spec)
parseShell sys (psFilename spec) (psScript spec)
lt x = trace (show x) x