Move main to allow for new executables

2021-08-11 17:54:48 +02:00
parent b74bb45a4c
commit 4bbe5d0cf1
64 changed files with 521 additions and 345 deletions
@@ -78,7 +78,7 @@ Given a creature and a velocity, applies friction to that creature and evaluates
 velocity to carry across frames.
 -}
 crFriction :: Creature -> Point2 -> Point2
-crFriction _ _ = (V2 0 0)
+crFriction _ _ = V2 0 0

 doDamage :: Creature -> Creature
 doDamage cr = set (crState . crDamage) []