Add quicksave

src/Dodge/Base.hs

@@ -208,9 +208,8 @@ collidePointFF  = undefined
 -- | Looks for overlap of a circle with walls.
 -- If found, gives wall
 overlapCircWallsReturnWall :: Point2 -> Float -> IM.IntMap Wall -> Maybe Wall
-overlapCircWallsReturnWall p rad ws 
+overlapCircWallsReturnWall p rad
     = L.fold (safeMinimumOnMaybeL (fmap (dist p) . f . _wlLine))
-        ws
   where 
     f (a,b) = intersectSegSeg p (p -.- rad *.* vNormal (normalizeV (a -.- b))) a b