This commit is contained in:
Chad Brewbaker
2015-07-23 12:51:38 -05:00
parent 0a1beb883f
commit 95cfd87589
2 changed files with 6 additions and 6 deletions

View File

@@ -71,7 +71,7 @@ printErr = hPutStrLn stderr
instance JSON (JsonComment) where
showJSON (JsonComment filename c) = makeObj [
("file", showJSON $ filename),
("file", showJSON filename),
("line", showJSON $ scLine c),
("column", showJSON $ scColumn c),
("level", showJSON $ scSeverity c),