Cleanup warnings

2021-05-17 22:39:18 +02:00
parent d7fcdbf550
commit 69f915a894
102 changed files with 1243 additions and 1185 deletions
@@ -8,7 +8,7 @@ import Data.Maybe

 retreatPointForFrom
    :: Float -> World -> Creature -> Point2 -> Maybe Point2
-retreatPointForFrom d w cr p 
+retreatPointForFrom d _ cr p 
    = listToMaybe
    .  sortOn (dist cpos) 
    $ divideCircle 10 p d