diff options
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 |