json-tools-0.4.0: json-deep-select-key.hs

import qualified Data.HashMap.Strict as HM
import Data.Aeson
import qualified Data.Text as T
import System.Environment (getArgs)
import qualified Data.Vector as V
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Lazy.Char8 as L8

deepSelectKey :: T.Text -> Value -> V.Vector Value
deepSelectKey key (Array vs)
  = V.concatMap (deepSelectKey key) vs
deepSelectKey key (Object o)
  = maybe (V.concatMap (deepSelectKey key) (V.fromList $ HM.elems o)) return
  . HM.lookup key $ o
deepSelectKey _ _ = V.empty

main :: IO ()
main = do
  args <- getArgs
  obj <- maybe (fail "JSON decoding") return . decode' =<< L.getContents
  case args of
    [key] ->
      L8.putStrLn . encode . Array $ deepSelectKey (T.pack key) obj
    _ -> error "Usage: json-deep-select-key <key>"