User more suitable Map functions in tactics plugin

Author: jhrcek

plugins/tactics/src/Ide/Plugin/Tactic/CodeGen.hs

@@ -154,9 +154,9 @@ destruct' :: (DataCon -> Judgement -> Rule) -> OccName -> Judgement -> Rule
 destruct' f term jdg = do
   when (isDestructBlacklisted jdg) $ throwError NoApplicableTactic
   let hy = jHypothesis jdg
-  case find ((== term) . fst) $ toList hy of
+  case M.lookup term hy of
     Nothing -> throwError $ UndefinedHypothesis term
-    Just (_, hi_type -> t) -> do
+    Just (hi_type -> t) -> do
       useOccName jdg term
       (tr, ms)
           <- destructMatches

plugins/tactics/src/Ide/Plugin/Tactic/Judgements.hs

@@ -211,7 +211,7 @@ filterSameTypeFromOtherPositions dcon pos jdg =
              (findDconPositionVals jdg dcon pos)
              (WrongBranch pos)
              jdg
-      tys = S.fromList $ fmap (hi_type . snd) $ M.toList hy
+      tys = S.fromList $ hi_type <$> M.elems hy
       to_remove =
         M.filter (flip S.member tys . hi_type) (jHypothesis jdg)
           M.\\ hy

plugins/tactics/src/Ide/Plugin/Tactic/Tactics.hs

@@ -110,7 +110,7 @@ destructAuto name = requireConcreteHole $ tracing "destruct(auto)" $ do
       in case isPatternMatch $ hi_provenance hi of
             True ->
               pruning subtactic $ \jdgs ->
-                let getHyTypes = S.fromList . fmap (hi_type . snd) . M.toList . jHypothesis
+                let getHyTypes = S.fromList . fmap hi_type . M.elems . jHypothesis
                     new_hy = foldMap getHyTypes jdgs
                     old_hy = getHyTypes jdg
                 in case S.null $ new_hy S.\\ old_hy of