Stupid JSON pretty-printer thingy

Main.hs

{-# LANGUAGE TypeApplications #-}
module Main where

import           System.Environment
import           Data.Aeson
import           Data.Aeson.Encode.Pretty
import           Data.Maybe                 ( fromJust )
import qualified Data.ByteString.Lazy       as LBS



main =   LBS.putStr 
       . encodePretty 
       . fromJust 
       . decode @(Maybe Value) 
       =<< LBS.readFile 
       . head 
       =<< getArgs