Continue refactor

src/Dodge/Render/Walls.hs

@@ -1,5 +1,5 @@
 module Dodge.Render.Walls
-    ( wallsToDrawStreams
+    ( wallsToDraw
     ) where
 import Dodge.Data
 import Dodge.Zone
@@ -13,11 +13,10 @@ import qualified Control.Foldl as L
 import qualified Streaming.Prelude as S
 --import Data.List
 --import qualified Data.IntMap.Strict as IM
-wallsToDrawStreams
-    :: Configuration
-    -> World
+wallsToDraw
+    :: World
     -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )
-wallsToDrawStreams cfig w
+wallsToDraw w
     = ( wls, wins,spic)
   where
     f wl = (_wlLine wl, _wlColor wl)