Skip to content

Commit b16b041

Browse files
ana-pantiliegithub-actionsrv-jenkins
authored
NormalizedAc.concreteElements, InternalMap, InternalSet: use HashMap and HashSet (#2543)
* NormalizedAc.concreteElements: use HashMap * Format with fourmolu * Fix unit tests: term reorderings * Format with fourmolu * Builtin maps and sets: evaluate/test with HashMap and HashSet * Format with fourmolu * Fix bug in implementation, clean-up * WIP: fix unit tests * Format with fourmolu * Format with fourmolu * Map reorderings: regenerate output for integration tests * WIP unit tests: uncomment failing tests * Format with fourmolu * Fix Set.test_toList * Fix all failing unit tests * Format with fourmolu * Remove commented import * Update test name * Make couple of unit tests independent of order * Format with fourmolu * Matcher tests: add matchMulti Co-authored-by: github-actions <[email protected]> Co-authored-by: rv-jenkins <[email protected]>
1 parent 5dcac76 commit b16b041

31 files changed

+490
-366
lines changed

kore/src/Kore/Builtin/AssocComm/CeilSimplifier.hs

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,8 +16,8 @@ import Control.Monad.Reader (
1616
)
1717
import qualified Control.Monad.Reader as Reader
1818
import qualified Data.Bifunctor as Bifunctor
19+
import qualified Data.HashMap.Strict as HashMap
1920
import qualified Data.HashSet as HashSet
20-
import qualified Data.Map.Strict as Map
2121
import Kore.Attribute.Pattern.FreeVariables (
2222
FreeVariables,
2323
)
@@ -329,7 +329,10 @@ fromElement ::
329329
NormalizedAc normalized Key (TermLike RewritingVariableName)
330330
fromElement element
331331
| Just concreteKey <- retractKey symbolicKey =
332-
emptyNormalizedAc{concreteElements = Map.singleton concreteKey value}
332+
emptyNormalizedAc
333+
{ concreteElements =
334+
HashMap.singleton concreteKey value
335+
}
333336
| otherwise =
334337
emptyNormalizedAc{elementsWithVariables = [element]}
335338
where

0 commit comments

Comments
 (0)