Remove redundant case, remove leftover commented code

digital-asset · Aug 1, 2024 · a1db246 · a1db246
1 parent 9d3a67b
commit a1db246
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 5 deletions.
diff --git a/sdk/compiler/daml-lf-tools/src/DA/Daml/LF/TypeChecker/Upgrade.hs b/sdk/compiler/daml-lf-tools/src/DA/Daml/LF/TypeChecker/Upgrade.hs
@@ -748,8 +748,6 @@ isStructurallyEquivalentDatatype identicalCons datatype =
               pure (allConNamesMatch && allTypesMatch)
           Upgrading { _past = DataEnum _past, _present = DataEnum _present } -> do
               pure $ _past == _present
-          Upgrading { _past = DataInterface {}, _present = DataInterface {} } ->
-              pure False
           _ ->
               pure False
 

diff --git a/sdk/compiler/damlc/daml-compiler/src/DA/Daml/Compiler/Dar.hs b/sdk/compiler/damlc/daml-compiler/src/DA/Daml/Compiler/Dar.hs
@@ -167,9 +167,6 @@ buildDar service PackageConfigFields {..} ifDir dalfInput upgradeInfo = do
                          [ (T.pack $ unitIdString unitId, LF.dalfPackageBytes pkg, LF.dalfPackageId pkg)
                          | (unitId, pkg) <- Map.toList dalfDependencies0
                          ]
-                 --MaybeT $
-                 --    runDiagnosticCheck $ diagsToIdeResult (toNormalizedFilePath' pSrc) $
-                 --        TypeChecker.Upgrade.checkUpgradeDependencies lfVersion pTypecheckUpgrades pkg (Map.elems dalfDependencies0) mbUpgradedPackage
                  unstableDeps <- getUnstableDalfDependencies files
                  let confFile = mkConfFile pName pVersion (Map.keys unstableDeps) pExposedModules pkgModuleNames pkgId
                  let dataFiles = [confFile]