fixed withLocalLocalEnvironment to save the entire environment, not j…

…ust parts of it
GaloisInc · Dec 8, 2020 · 5a37203 · 5a37203
1 parent 5aa04fb
commit 5a37203
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/Verifier/SAW/Translation/Coq/Term.hs b/src/Verifier/SAW/Translation/Coq/Term.hs
@@ -289,11 +289,9 @@ asApplyAllRecognizer t = do _ <- asApp t
 -- restoring the current environment before returning.
 withLocalLocalEnvironment :: TermTranslationMonad m => m a -> m a
 withLocalLocalEnvironment action = do
-  env <- view localEnvironment <$> get
-  used <- view unavailableIdents <$> get
+  s <- get
   result <- action
-  modify $ set localEnvironment env
-  modify $ set unavailableIdents used
+  put s
   return result
 
 mkDefinition :: Coq.Ident -> Coq.Term -> Coq.Decl