gipeda-0.3: src/RevReport.hs

{-# LANGUAGE DeriveGeneric #-}

module RevReport where

import Data.Functor
import qualified Data.Map as M
import qualified Data.ByteString.Lazy as BS
import Data.Aeson
import Development.Shake.Command
import Text.Read

import ReportTypes
import ReadResult
import qualified BenchmarkSettings as S

git args = cmd (words "git -C repository" ++ args)

revReportMain :: [String] -> IO ()
revReportMain (this:parents) = do
    settings <- S.readSettings "gipeda.yaml"

    thisM <- readCSV this
    parentM <- case parents of
        p:_ -> readCSV p
        _    -> return M.empty

    log <- case parents of
        p:_ -> fromStdout <$> git ["log", p ++ ".."++ this]
        _   -> fromStdout <$> git ["show", "-s", this]

    msg <- fromStdout <$> git ["show", "--format=%s", "-s", this]
    dateS <- fromStdout <$> git ["show", "--format=%ct","-s",this]
    date <- case readMaybe dateS of
	Just date -> return date
	Nothing -> error $ "Could not parse date " ++ show dateS

    let rep = createReport settings this parents thisM parentM log msg date
    let doc = emptyGlobalReport { revisions = Just (M.singleton this rep) }

    BS.putStr (encode doc)

branchReportMain :: [String]-> IO ()
branchReportMain [branchName, this, other] = do
    settings <- S.readSettings "gipeda.yaml"

    thisM <- readCSV this
    otherM <- readCSV other

    log <- fromStdout <$> git ["log", "--oneline", other ++ ".."++ this]
    let commits = length (lines log)

    let rep = createBranchReport settings this other thisM otherM commits
    let doc = emptyGlobalReport { branches = Just (M.singleton branchName rep) }
    BS.putStr (encode doc)