summaryrefslogtreecommitdiff
path: root/examples/pjson.hs
blob: a515febb469fc514abd9548b92dbade3f71466ec (plain)
1
2
3
4
5
6
7
8
9
10
11
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)