Refactor modules

src/Dodge/Creature/AlertLevel.hs

@@ -3,8 +3,8 @@ module Dodge.Creature.AlertLevel
     where
 import Dodge.Data
 import Dodge.Creature.AlertLevel.Data
-import Dodge.Base
---import Dodge.Base.Collide
+import Dodge.Base.Collide
+import StrictHelp
 
 import Control.Lens
 import Control.Monad.Reader
@@ -62,4 +62,4 @@ basicAttentionUpdate
     -> Creature
     -> Creature
 basicAttentionUpdate cids w cr = cr & crAttentionDir .~
-    AttentiveTo (forceList $ filter (\cid -> canSee (_crID cr) cid w) cids)
+    AttentiveTo (forceFoldable $ filter (\cid -> canSee (_crID cr) cid w) cids)