Delete cruft, add Reader monad to some internal ai

src/Dodge/Creature/AlertLevel/Data.hs

@@ -1,5 +1,8 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
 module Dodge.Creature.AlertLevel.Data
     where
+import Control.Lens
 
 data AwakeLevel
     = Comatose
@@ -9,9 +12,11 @@ data AwakeLevel
     | Overstrung
 
 data AttentionDir
-    = AttentiveTo [Int]
-    | Fixated  Int
+    = AttentiveTo {_unAttentiveTo :: [Int]}
+    | Fixated {_unFixated :: Int }
 
 data AwarenessLevel
     = AwarenessInt Int
     | Cognizant Int
+
+makeLenses ''AttentionDir