suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed the error reporting so that we at least print the meta tag if we can't open the file to find the line

Browse Source
This commit is contained in:
Neil Brown 2008-02-11 01:15:56 +00:00
parent 3b9d75d488
commit 1151fab5ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/Errors.hs
View File

@ -61,7 +61,7 @@ dieIO :: (Monad m, MonadIO m) => ErrorReport -> m a
dieIO (Just m@(Meta (Just fn) line column),s) = liftIO $ dieIO (Just m@(Meta (Just fn) line column),s) = liftIO $
-- If we can't read the file successfully, still print our original error -- If we can't read the file successfully, still print our original error
-- rather than a "can't read file" error: -- rather than a "can't read file" error:
do fileContents <- catch (readFile fn) (\_ -> printError s) do fileContents <- catch (readFile fn) (\_ -> printError (show m ++ s))
let startingLine = max 1 (line - contextLines) let startingLine = max 1 (line - contextLines)
let lines = map replaceTabs $ getLines fileContents (startingLine) ((2 * contextLines) + 1) let lines = map replaceTabs $ getLines fileContents (startingLine) ((2 * contextLines) + 1)
putStrLn $ fn ++ ":" putStrLn $ fn ++ ":"