Commits

Bryan O'Sullivan committed b439158

Final get-it-working-again compilation step.

Comments (0)

Files changed (1)

 import System.Console.CmdArgs
 import System.Exit (ExitCode(ExitFailure), exitWith)
 import System.IO (hPutStrLn, stderr, stdout)
+import qualified Data.Aeson.Generic as G
 import qualified Data.ByteString.Char8 as B
 import qualified Data.ByteString.Lazy.Char8 as BL
 import qualified Data.Text.Format as T
       env <- environment
       let dump = object [ "config" .= cfg
                         , "environment" .= env
-                        , "analysis" .= analysis ]
+                        , "analysis" .= G.toJSON analysis ]
       case json of
         Just "-" -> BL.putStrLn (encode dump)
         Just f   -> BL.writeFile f (encode dump)