Commit before attempting to add concurrency to loop

src/Dodge/RadarSweep.hs

@@ -1,4 +1,7 @@
-module Dodge.RadarSweep where
+module Dodge.RadarSweep 
+    ( aRadarPulse
+    , updateRadarSweep
+    ) where
 
 import Color
 import Data.Maybe
@@ -73,13 +76,6 @@ itemBlips p r = IM.elems . IM.filter f . fmap _flItPos . _floorItems . _cWorld
   where
     f q = dist p q <= r && dist p q > r - 4
 
---wallBlips :: Point2 -> Float -> World -> [Point2]
---wallBlips p r w = runIdentity . S.toList_ $ S.mapMaybe (uncurry (intersectCircSegFirst p r) . _wlLine)
---    $ S.map (over wlLine swp) (wlsInsideCirc p r w)
---                  <> wlsInsideCirc p r w
---  where
---    swp (a,b) = (b,a)
-
 wallBlips :: Point2 -> Float -> World -> [Point2]
 wallBlips p r w =
     mapMaybe (uncurry (intersectCircSegFirst p r) . _wlLine) $