Remove bezier shader

src/Dodge/Render/Connectors.hs

@@ -1,7 +1,6 @@
 module Dodge.Render.Connectors
     ( zConnect
     , zConnectCol
-    , bConnect
     , lConnect
     ) where
 import Picture
@@ -24,16 +23,6 @@ zConnectCol (V2 x y) (V2 a b) c1 c2 c3 c4 = lineCol $ zip
     ]
     ) [c1,c2,c3,c4]
 
-bConnect :: Point2 -> Point2 -> Picture
-bConnect (V2 x y) (V2 z w) = pictures 
-    [ bline 0.2 0.050 0.010
-    , bline 0.5 0.045 0.005
-    , bline 0.5 0.035 0.002
-    ] --cheapo antialiasing
-  where
-    bline alph lwidth rwidth
-        = bezierQuad (withAlpha 0.0 white) (withAlpha alph white) lwidth rwidth (V2 x y) (V2 0 y) (V2 z w)
-
 lConnect :: Point2 -> Point2 -> Picture
 lConnect sp@(V2 _ y) ep@(V2 x _) = line 
     [ sp