jq/Main.hs

import Parser
import Lexer
import JQ
import Text.JSON
import Text.JSON.String
import PrettyJSON
import System.Environment
import Control.Monad
import System.IO

parseJS :: String -> JSValue
parseJS s = case runGetJSON readJSValue s of
  Left err -> error err
  Right val -> val

  
main = do
  [program] <- getArgs
  stdlib <- openFile "stdlib.jq" ReadMode >>= hGetContents
  json <- liftM parseJS $ hGetContents stdin
  case runLexer (stdlib ++ program) >>= runParser of
    Left err -> putStrLn err
    Right program -> mapM_ (putStrLn . show . renderJSON) (runJQ program json)