Bryan O'Sullivan avatar 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)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.