Fix bug in line zoning by using less ambitious algorithm

src/Shader/Poke.hs

@@ -26,7 +26,7 @@ pokeVerxs
     -> UMV.MVector (PrimState IO) Int 
     -> Picture 
     -> IO ()
-pokeVerxs vbos count vxs = VS.mapM_ (pokeVerx vbos count) $ VS.fromList vxs
+pokeVerxs vbos count = VS.mapM_ (pokeVerx vbos count) . VS.fromList
 
 pokeVerx :: MV.MVector (PrimState IO) FullShader -> UMV.MVector (PrimState IO) Int -> Verx -> IO ()
 pokeVerx vbos offsets Verx{_vxPos=thePos,_vxCol=theCol,_vxExt=ext,_vxShadNum=theShadNum} = do
@@ -243,4 +243,3 @@ pokePoint33 ptr n (V3 a b c,V3 d e f) = do
     return (n+1)
   where
     off i = n*6 + i
-