diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-11 01:34:07 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-11 01:34:07 +0200 |
| commit | fb065aeac90ce0766a3f74b84c34547cd087da77 (patch) | |
| tree | a84887655dc8cc0e66ff32162ac81e1124f8c7d1 /src/Sequence/Utils.hs | |
| parent | 49d5fbcf0ac5322ba010230f0340b701d89d7fc2 (diff) | |
| download | 2017-01-16_17:13:37-fb065aeac90ce0766a3f74b84c34547cd087da77.tar 2017-01-16_17:13:37-fb065aeac90ce0766a3f74b84c34547cd087da77.tar.gz 2017-01-16_17:13:37-fb065aeac90ce0766a3f74b84c34547cd087da77.tar.bz2 2017-01-16_17:13:37-fb065aeac90ce0766a3f74b84c34547cd087da77.tar.xz 2017-01-16_17:13:37-fb065aeac90ce0766a3f74b84c34547cd087da77.zip | |
trigger effects on taking damage
Diffstat (limited to 'src/Sequence/Utils.hs')
| -rw-r--r-- | src/Sequence/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Sequence/Utils.hs b/src/Sequence/Utils.hs index bbd1477..8b205ea 100644 --- a/src/Sequence/Utils.hs +++ b/src/Sequence/Utils.hs | |||
| @@ -112,5 +112,5 @@ instance Argument (Set Hitzone) GameState where | |||
| 112 | ws = Set.fromList . map CI.mk . filter (not . null) . map trim . split $ protoWs | 112 | ws = Set.fromList . map CI.mk . filter (not . null) . map trim . split $ protoWs |
| 113 | hasGlob = Set.member "*" ws | 113 | hasGlob = Set.member "*" ws |
| 114 | hitzones <- Set.map (view _Hitzone) . Map.keysSet <$> MaybeT (preuse $ gFocus' . eStats . sHitzones) | 114 | hitzones <- Set.map (view _Hitzone) . Map.keysSet <$> MaybeT (preuse $ gFocus' . eStats . sHitzones) |
| 115 | guard (hasGlob || hitzones `Set.isSubsetOf` ws) | 115 | guard (hasGlob || ws `Set.isSubsetOf` hitzones) |
| 116 | return . Set.map (review _Hitzone) $ if hasGlob then hitzones else ws | 116 | return . Set.map (review _Hitzone) $ if hasGlob then hitzones else ws |