Base.hs

module Generics.GPAH.Base where

import qualified Generics.GPAH.Cpp.Base as Cpp
import qualified Generics.GPAH.Deriving.Base as Deriving
import qualified Generics.GPAH.Function.Base as Function
import qualified Generics.GPAH.Upl.Base as Upl
import qualified Generics.GPAH.Hackage.Base as Hackage
import qualified Generics.GPAH.Date.Base as Date
import qualified Generics.GPAH.Interp.Base as Interp
import qualified Generics.GPAH.Derive.Base as Derive

import Data.Maybe

import Control.DeepSeq

import Data.Monoid

data Analysis = Analysis {
      cppAnalysis :: Cpp.Analysis
    , derAnalysis :: Deriving.Analysis
    , funAnalysis :: Function.Analysis
    , uplAnalysis :: Upl.Analysis
    , hacAnalysis :: Hackage.Analysis
    , dteAnalysis :: Date.Analysis
    , intAnalysis :: Interp.Analysis
    , dveAnalysis :: Derive.Analysis
    } 
                deriving (Show)

instance NFData Analysis where
    rnf (Analysis a1 a2 a3 a4 a5 a6 a7 a8) = a1
                                   `deepseq` a2
                                   `deepseq` a3
                                   `deepseq` a4
                                   `deepseq` a5
                                   `deepseq` a6
                                   `deepseq` a7
                                   `deepseq` a8
                                   `deepseq` ()


instance Monoid Analysis where
    mempty = Analysis mempty mempty mempty mempty mempty mempty mempty mempty
    (Analysis x1 x2 x3 x4 x5 x6 x7 x8) `mappend` (Analysis y1 y2 y3 y4 y5 y6 y7 y8) = Analysis
                                                                                (mappend x1 y1)
                                                                                (mappend x2 y2)
                                                                                (mappend x3 y3)
                                                                                (mappend x4 y4)
                                                                                (mappend x5 y5)
                                                                                (mappend x6 y6)
                                                                                (mappend x7 y7)
                                                                                (mappend x8 y8)