Cleanup

2025-10-15 20:29:43 +01:00
parent 5e6ed1d793
commit 4d12d6cf2b
6 changed files with 150 additions and 161 deletions
@@ -22,9 +22,9 @@ doCrWdWd :: CrWdWd -> Creature -> World -> World
 doCrWdWd cww = case cww of
    CrWdWdId -> const id

-doIntImp :: IntImp -> Int -> Impulse
-doIntImp ii = case ii of
-    NoIntImp -> const ImpulseNothing
+--doIntImp :: IntImp -> Int -> Impulse
+--doIntImp ii = case ii of
+--    NoIntImp -> const ImpulseNothing

 doCrImp :: CrImp -> Creature -> Impulse
 doCrImp ci = case ci of