Broken commit (removed loadKeyConfig)

src/Dodge/Creature/AlertLevel/Data.hs

@@ -1,7 +1,13 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Creature.AlertLevel.Data
-    where
+    ( AwakeLevel (..)
+    , AttentionDir (..)
+    , AwarenessLevel (..)
+    -- lenses
+    , getAttentiveTo
+    , getFixated
+    ) where
 import Control.Lens
 
 data AwakeLevel
@@ -12,8 +18,8 @@ data AwakeLevel
     | Overstrung
 
 data AttentionDir
-    = AttentiveTo {_unAttentiveTo :: [Int]}
-    | Fixated {_unFixated :: Int }
+    = AttentiveTo {_getAttentiveTo :: [Int]}
+    | Fixated {_getFixated :: Int }
 
 data AwarenessLevel
     = AwarenessInt Int

src/Dodge/Creature/Rationality.hs

@@ -87,7 +87,7 @@ followImpulse cr w imp = case imp of
     posFromID cid = _crPos $ _creatures w IM.! cid
     rr a = fst $ randomR (-a,a) $ _randGen w
     hitCr i = over (creatures . ix i . crState . crDamage) (addDam i)
-        . soundOnce (fromIntegral hitSound)
+        . soundOnce hitSound
     addDam i dams = Blunt 100 cpos (posFromID i) (posFromID i) : dams 
 
 actionUpdateAI