16 lines
382 B
Haskell
16 lines
382 B
Haskell
import ShellCheck.Simple
|
|
import Text.JSON
|
|
|
|
instance JSON ShellCheckComment where
|
|
showJSON c = makeObj [
|
|
("line", showJSON $ scLine c),
|
|
("column", showJSON $ scColumn c),
|
|
("level", showJSON $ scSeverity c),
|
|
("message", showJSON $ scMessage c)
|
|
]
|
|
readJSON = undefined
|
|
|
|
main = do
|
|
script <- getContents
|
|
putStrLn $ encodeStrict $ shellCheck script
|