Add frame clock

2021-09-09 13:29:09 +01:00
parent a2288110ae
commit be7b2d2cd7
27 changed files with 176 additions and 87 deletions
@@ -1,4 +1,4 @@
-{-# LANGUAGE TupleSections #-}
+--{-# LANGUAGE TupleSections #-}
 module Dodge.Creature.Perception
    ( perceptionUpdate
    , newSounds
@@ -96,7 +96,7 @@ newSounds = mapMaybe f . M.elems . _playingSounds

 rememberSounds :: Creature -> Reader World Creature
 rememberSounds cr = do
-    sList <- fmap newSounds ask
+    sList <- asks newSounds
    return $ cr & crMemory . soundsToInvestigate .~ map fst (filter (soundIsClose cr) sList)
 --    return $ cr & crMemory . soundsToInvestigate .~ [V2 0 0]