Add new replacement format to the JSON

2019-01-09 18:35:36 -08:00 · 2019-01-09 18:35:36 -08:00 · fcdd6055df
parent fd2beaadfa
commit fcdd6055df
1 changed files with 7 additions and 2 deletions
--- a/src/ShellCheck/Formatter/JSON.hs
+++ b/src/ShellCheck/Formatter/JSON.hs
@ -45,11 +45,16 @@ instance ToJSON Replacement where
            end = repEndPos replacement
            str = repString replacement in
        object [
+          "precedence" .= repPrecedence replacement,
+          "insertionPoint"  .=
+            case repInsertionPoint replacement of
+                InsertBefore -> "beforeStart" :: String
+                InsertAfter  -> "afterEnd",
          "line" .= posLine start,
-          "endLine" .= posLine end,
          "column" .= posColumn start,
+          "endLine" .= posLine end,
          "endColumn" .= posColumn end,
-          "replaceWith" .= str
+          "replacement" .= str
        ]

 instance ToJSON PositionedComment where