Added a json interface

jsoncheck.hs

@@ -0,0 +1,15 @@
+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