Skip to content

Commit d80fc2c

Browse files
committed
asum instead of choice for assumption
1 parent 2aedbe7 commit d80fc2c

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

plugins/hls-tactics-plugin/src/Wingman/Tactics.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -48,6 +48,8 @@ import Wingman.Types
4848
-- | Use something in the hypothesis to fill the hole.
4949
assumption :: TacticsM ()
5050
assumption = attemptOn (S.toList . allNames) assume
51+
where
52+
attemptOn getNames tac = matching (asum . fmap (\s -> tac s) . getNames)
5153

5254

5355
------------------------------------------------------------------------------

0 commit comments

Comments
 (0)