hydra-build-0.17.5: src/main/haskell/Hydra/Dsl/Build/Comparereport.hs

-- Note: this is an automatically generated file. Do not edit.

-- | DSL functions for hydra.build.comparereport

module Hydra.Dsl.Build.Comparereport where

import qualified Hydra.Build.Comparereport as Comparereport
import qualified Hydra.Core as Core
import qualified Hydra.Decode.Build.Comparereport as DecodeBuildComparereport
import qualified Hydra.Encode.Build.Comparereport as EncodeBuildComparereport
import qualified Hydra.Typed as Typed
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, lines, map, pure, sum, unlines)
import qualified Data.Scientific as Sci

-- | DSL constructor for hydra.build.comparereport.CompareReport
compareReport :: Typed.TypedTerm [Comparereport.ModuleCompare] -> Typed.TypedTerm Int -> Typed.TypedTerm Int -> Typed.TypedTerm Comparereport.CompareReport
compareReport rows byteEqCount total =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "rows"),
          Core.fieldTerm = (Typed.unTypedTerm rows)},
        Core.Field {
          Core.fieldName = (Core.Name "byteEqCount"),
          Core.fieldTerm = (Typed.unTypedTerm byteEqCount)},
        Core.Field {
          Core.fieldName = (Core.Name "total"),
          Core.fieldTerm = (Typed.unTypedTerm total)}]}))

-- | DSL accessor for the byteEqCount field of hydra.build.comparereport.CompareReport
compareReportByteEqCount :: Typed.TypedTerm Comparereport.CompareReport -> Typed.TypedTerm Int
compareReportByteEqCount x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
        Core.projectionFieldName = (Core.Name "byteEqCount")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL name token for hydra.build.comparereport.CompareReport
compareReportCompareReport :: Typed.TypedName Comparereport.CompareReport
compareReportCompareReport = Typed.TypedName (Core.Name "hydra.build.comparereport.CompareReport")

-- | DSL accessor for the rows field of hydra.build.comparereport.CompareReport
compareReportRows :: Typed.TypedTerm Comparereport.CompareReport -> Typed.TypedTerm [Comparereport.ModuleCompare]
compareReportRows x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
        Core.projectionFieldName = (Core.Name "rows")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL accessor for the total field of hydra.build.comparereport.CompareReport
compareReportTotal :: Typed.TypedTerm Comparereport.CompareReport -> Typed.TypedTerm Int
compareReportTotal x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
        Core.projectionFieldName = (Core.Name "total")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL updater for the byteEqCount field of hydra.build.comparereport.CompareReport
compareReportWithByteEqCount :: Typed.TypedTerm Comparereport.CompareReport -> Typed.TypedTerm Int -> Typed.TypedTerm Comparereport.CompareReport
compareReportWithByteEqCount original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "rows"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
              Core.projectionFieldName = (Core.Name "rows")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "byteEqCount"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)},
        Core.Field {
          Core.fieldName = (Core.Name "total"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
              Core.projectionFieldName = (Core.Name "total")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))}]}))

-- | DSL updater for the rows field of hydra.build.comparereport.CompareReport
compareReportWithRows :: Typed.TypedTerm Comparereport.CompareReport -> Typed.TypedTerm [Comparereport.ModuleCompare] -> Typed.TypedTerm Comparereport.CompareReport
compareReportWithRows original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "rows"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)},
        Core.Field {
          Core.fieldName = (Core.Name "byteEqCount"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
              Core.projectionFieldName = (Core.Name "byteEqCount")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "total"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
              Core.projectionFieldName = (Core.Name "total")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))}]}))

-- | DSL updater for the total field of hydra.build.comparereport.CompareReport
compareReportWithTotal :: Typed.TypedTerm Comparereport.CompareReport -> Typed.TypedTerm Int -> Typed.TypedTerm Comparereport.CompareReport
compareReportWithTotal original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "rows"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
              Core.projectionFieldName = (Core.Name "rows")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "byteEqCount"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.CompareReport"),
              Core.projectionFieldName = (Core.Name "byteEqCount")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "total"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)}]}))

-- | DSL injection for the byteEq variant of hydra.build.comparereport.CompareStatus
compareStatusByteEq :: Typed.TypedTerm Comparereport.CompareStatus
compareStatusByteEq =
    Typed.TypedTerm (Core.TermInject (Core.Injection {
      Core.injectionTypeName = (Core.Name "hydra.build.comparereport.CompareStatus"),
      Core.injectionField = Core.Field {
        Core.fieldName = (Core.Name "byteEq"),
        Core.fieldTerm = Core.TermUnit}}))

-- | DSL name token for hydra.build.comparereport.CompareStatus
compareStatusCompareStatus :: Typed.TypedName Comparereport.CompareStatus
compareStatusCompareStatus = Typed.TypedName (Core.Name "hydra.build.comparereport.CompareStatus")

-- | DSL injection for the differ variant of hydra.build.comparereport.CompareStatus
compareStatusDiffer :: Typed.TypedTerm Comparereport.CompareStatus
compareStatusDiffer =
    Typed.TypedTerm (Core.TermInject (Core.Injection {
      Core.injectionTypeName = (Core.Name "hydra.build.comparereport.CompareStatus"),
      Core.injectionField = Core.Field {
        Core.fieldName = (Core.Name "differ"),
        Core.fieldTerm = Core.TermUnit}}))

-- | DSL injection for the missing variant of hydra.build.comparereport.CompareStatus
compareStatusMissing :: Typed.TypedTerm Comparereport.CompareStatus
compareStatusMissing =
    Typed.TypedTerm (Core.TermInject (Core.Injection {
      Core.injectionTypeName = (Core.Name "hydra.build.comparereport.CompareStatus"),
      Core.injectionField = Core.Field {
        Core.fieldName = (Core.Name "missing"),
        Core.fieldTerm = Core.TermUnit}}))

-- | DSL constructor for hydra.build.comparereport.ModuleCompare
moduleCompare :: Typed.TypedTerm String -> Typed.TypedTerm Comparereport.CompareStatus -> Typed.TypedTerm Int -> Typed.TypedTerm Int -> Typed.TypedTerm Int -> Typed.TypedTerm Comparereport.ModuleCompare
moduleCompare module_ status ourSize canonSize diffLines =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "module"),
          Core.fieldTerm = (Typed.unTypedTerm module_)},
        Core.Field {
          Core.fieldName = (Core.Name "status"),
          Core.fieldTerm = (Typed.unTypedTerm status)},
        Core.Field {
          Core.fieldName = (Core.Name "ourSize"),
          Core.fieldTerm = (Typed.unTypedTerm ourSize)},
        Core.Field {
          Core.fieldName = (Core.Name "canonSize"),
          Core.fieldTerm = (Typed.unTypedTerm canonSize)},
        Core.Field {
          Core.fieldName = (Core.Name "diffLines"),
          Core.fieldTerm = (Typed.unTypedTerm diffLines)}]}))

-- | DSL accessor for the canonSize field of hydra.build.comparereport.ModuleCompare
moduleCompareCanonSize :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Int
moduleCompareCanonSize x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
        Core.projectionFieldName = (Core.Name "canonSize")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL accessor for the diffLines field of hydra.build.comparereport.ModuleCompare
moduleCompareDiffLines :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Int
moduleCompareDiffLines x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
        Core.projectionFieldName = (Core.Name "diffLines")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL accessor for the module field of hydra.build.comparereport.ModuleCompare
moduleCompareModule :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm String
moduleCompareModule x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
        Core.projectionFieldName = (Core.Name "module")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL name token for hydra.build.comparereport.ModuleCompare
moduleCompareModuleCompare :: Typed.TypedName Comparereport.ModuleCompare
moduleCompareModuleCompare = Typed.TypedName (Core.Name "hydra.build.comparereport.ModuleCompare")

-- | DSL accessor for the ourSize field of hydra.build.comparereport.ModuleCompare
moduleCompareOurSize :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Int
moduleCompareOurSize x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
        Core.projectionFieldName = (Core.Name "ourSize")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL accessor for the status field of hydra.build.comparereport.ModuleCompare
moduleCompareStatus :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Comparereport.CompareStatus
moduleCompareStatus x =
    Typed.TypedTerm (Core.TermApplication (Core.Application {
      Core.applicationFunction = (Core.TermProject (Core.Projection {
        Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
        Core.projectionFieldName = (Core.Name "status")})),
      Core.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL updater for the canonSize field of hydra.build.comparereport.ModuleCompare
moduleCompareWithCanonSize :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Int -> Typed.TypedTerm Comparereport.ModuleCompare
moduleCompareWithCanonSize original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "module"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "module")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "status"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "status")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "ourSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "ourSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "canonSize"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)},
        Core.Field {
          Core.fieldName = (Core.Name "diffLines"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "diffLines")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))}]}))

-- | DSL updater for the diffLines field of hydra.build.comparereport.ModuleCompare
moduleCompareWithDiffLines :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Int -> Typed.TypedTerm Comparereport.ModuleCompare
moduleCompareWithDiffLines original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "module"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "module")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "status"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "status")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "ourSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "ourSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "canonSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "canonSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "diffLines"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)}]}))

-- | DSL updater for the module field of hydra.build.comparereport.ModuleCompare
moduleCompareWithModule :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm String -> Typed.TypedTerm Comparereport.ModuleCompare
moduleCompareWithModule original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "module"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)},
        Core.Field {
          Core.fieldName = (Core.Name "status"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "status")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "ourSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "ourSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "canonSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "canonSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "diffLines"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "diffLines")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))}]}))

-- | DSL updater for the ourSize field of hydra.build.comparereport.ModuleCompare
moduleCompareWithOurSize :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Int -> Typed.TypedTerm Comparereport.ModuleCompare
moduleCompareWithOurSize original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "module"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "module")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "status"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "status")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "ourSize"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)},
        Core.Field {
          Core.fieldName = (Core.Name "canonSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "canonSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "diffLines"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "diffLines")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))}]}))

-- | DSL updater for the status field of hydra.build.comparereport.ModuleCompare
moduleCompareWithStatus :: Typed.TypedTerm Comparereport.ModuleCompare -> Typed.TypedTerm Comparereport.CompareStatus -> Typed.TypedTerm Comparereport.ModuleCompare
moduleCompareWithStatus original newVal =
    Typed.TypedTerm (Core.TermRecord (Core.Record {
      Core.recordTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
      Core.recordFields = [
        Core.Field {
          Core.fieldName = (Core.Name "module"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "module")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "status"),
          Core.fieldTerm = (Typed.unTypedTerm newVal)},
        Core.Field {
          Core.fieldName = (Core.Name "ourSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "ourSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "canonSize"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "canonSize")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))},
        Core.Field {
          Core.fieldName = (Core.Name "diffLines"),
          Core.fieldTerm = (Core.TermApplication (Core.Application {
            Core.applicationFunction = (Core.TermProject (Core.Projection {
              Core.projectionTypeName = (Core.Name "hydra.build.comparereport.ModuleCompare"),
              Core.projectionFieldName = (Core.Name "diffLines")})),
            Core.applicationArgument = (Typed.unTypedTerm original)}))}]}))