module ShellCheck.Formatter.JSON (format) where

import ShellCheck.Interface

import ShellCheck.Formatter.Format

import Data.IORef

import GHC.Exts

import System.IO

import Text.JSON

format = do

ref <- newIORef []

return Formatter {

header = return (),

onResult = collectResult ref,

onFailure = outputError,

footer = finish ref

}

instance JSON (PositionedComment) where

showJSON comment@(PositionedComment start end (Comment level code string)) = makeObj [

("file", showJSON $ posFile start),

("line", showJSON $ posLine start),

("endLine", showJSON $ posLine end),

("column", showJSON $ posColumn start),

("endColumn", showJSON $ posColumn end),

("level", showJSON $ severityText comment),

("code", showJSON code),

("message", showJSON string)

]

readJSON = undefined

outputError file msg = hPutStrLn stderr $ file ++ ": " ++ msg

collectResult ref result _ =

modifyIORef ref (\x -> crComments result ++ x)

finish ref = do

list <- readIORef ref

putStrLn $ encodeStrict list