summaryrefslogtreecommitdiff
path: root/src/Sequence/Utils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Sequence/Utils.hs')
-rw-r--r--src/Sequence/Utils.hs2
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