currentVersionsReport
  :: UTCTime
  -> [(Description, Compiler, a)]
  -> [InstallAndTestResult]
  -> Maybe BS8.ByteString
currentVersionsReport t ds ts
  | null ds || null ts = Nothing
  | otherwise = Just $ versionsReport dep comp desc t r
  where
    dep = "These are the default versions fetched by cabal install.\n"
    (desc, comp, _) = last ds
    r = last ts
currentVersionsReport
  :: UTCTime
  -> [(Description, Compiler, a)]
  -> [InstallAndTestResult]
  -> Maybe BS8.ByteString
currentVersionsReport t ds ts
  | null ds || null ts = Nothing
  | otherwise = Just $ versionsReport dep comp desc t r
  where
    dep = "These are the default versions fetched by cabal install.\n"
    (desc, comp, _) = last ds
    r = last ts
currentVersionsReport t ds ts
  | null ds || null ts = Nothing
  | otherwise = Just $ versionsReport dep comp desc t r
  where
    dep = "These are the default versions fetched by cabal install.\n"
    (desc, comp, _) = last ds
    r = last ts