Utility for pretty-printing json files: pjson

1 files changed, 12 insertions, 0 deletions

diff --git a/examples/pjson.hs b/examples/pjson.hs
new file mode 100644
index 00000000..a515febb
--- /dev/null
+++ b/examples/pjson.hs
@@ -0,0 +1,12 @@
+import Data.Aeson.Encode.Pretty
+import qualified Data.Aeson as J
+import Data.ByteString.Lazy.Char8 as B
+import Control.Monad
+import System.Environment
+
+main = do
+    args <- getArgs
+    forM_ args $ \fn -> do
+        v <- J.decode <$> B.readFile fn
+        let _ = v :: Maybe J.Value
+        mapM_ B.putStrLn (fmap encodePretty v)