Skip to content

Commit 2e268b6

Browse files
committed
saw-core-coq: Delete duplicate sawCoreScaffoldingModule definition
The `SpecialTreatment` module had two entirely duplicate definitions (`sawCoreScaffoldingModule` and `sawDefinitionsModule`) referring to the `SAWCoreScaffolding` module. Let's delete the former in favor of the latter, which is more widely used.
1 parent 0c699f3 commit 2e268b6

File tree

1 file changed

+3
-6
lines changed

1 file changed

+3
-6
lines changed

saw-core-coq/src/Verifier/SAW/Translation/Coq/SpecialTreatment.hs

+3-6
Original file line numberDiff line numberDiff line change
@@ -211,9 +211,6 @@ sawVectorDefinitionsModule (TranslationConfiguration {..}) =
211211
cryptolPrimitivesModule :: ModuleName
212212
cryptolPrimitivesModule = mkModuleName ["CryptolPrimitivesForSAWCore"]
213213

214-
sawCoreScaffoldingModule :: ModuleName
215-
sawCoreScaffoldingModule = mkModuleName ["SAWCoreScaffolding"]
216-
217214
preludeExtraModule :: ModuleName
218215
preludeExtraModule = mkModuleName ["SAWCorePreludeExtra"]
219216

@@ -246,7 +243,7 @@ sawCorePreludeSpecialTreatmentMap configuration =
246243
Map.fromList $
247244

248245
-- sawLet
249-
[ ("sawLet", mapsTo sawCoreScaffoldingModule "sawLet_def") ]
246+
[ ("sawLet", mapsTo sawDefinitionsModule "sawLet_def") ]
250247

251248
-- Unsafe SAW features
252249
++
@@ -363,8 +360,8 @@ sawCorePreludeSpecialTreatmentMap configuration =
363360
[ ("divModNat", mapsTo sawDefinitionsModule "divModNat")
364361
, ("Nat", mapsTo datatypesModule "nat")
365362
, ("widthNat", mapsTo sawDefinitionsModule "widthNat")
366-
, ("Zero", mapsTo sawCoreScaffoldingModule "Zero")
367-
, ("Succ", mapsTo sawCoreScaffoldingModule "Succ")
363+
, ("Zero", mapsTo sawDefinitionsModule "Zero")
364+
, ("Succ", mapsTo sawDefinitionsModule "Succ")
368365
]
369366

370367
-- Vectors

0 commit comments

Comments
 (0)