Add haddocks and/or cleanup

src/Dodge/Item/Weapon.hs

@@ -1656,7 +1656,7 @@ updateTractor colID time i w
                     $ over floorItems (IM.map tractFlIt) 
                         w
     | otherwise = over projectiles (IM.delete i) w
-    where tractCr cr | circOnLine p1 p2 cP 10
+    where tractCr cr | circOnSeg p1 p2 cP 10
                                  = over crPos (\p -> 
                                                 p -.- m *.* ((0.3/ x) *.* q +.+ (f y *.* p4))
                                               ) cr
@@ -1666,7 +1666,7 @@ updateTractor colID time i w
                       cP = _crPos cr
                       m | dist cP p1 < 350 = 1
                         | otherwise        = (400 - dist cP p1) / 50
-          tractFlIt it | circOnLine p1 p2 iP 10
+          tractFlIt it | circOnSeg p1 p2 iP 10
                                  = over flItPos  (\p -> p -.- m *.* 
                                                             ( (0.3/ x) *.* q +.+ (f y *.* p4))
                                                  ) it