  , _crBranch :: Maybe BranchName
  , _crWorkflowNumber :: WorkflowNumber
  , _crComment :: Maybe Comment
  , _crClaimType :: ClaimTypeName
  , _crDetails :: Maybe Details
  , _crReason :: Maybe Reason
  , _crId :: RecordId
  , _crDate :: UTCTime
  } deriving (Show)