Add Read instances

src/Dodge/Render/Walls.hs

@@ -2,6 +2,7 @@ module Dodge.Render.Walls
     ( wallsToDraw
     ) where
 import Dodge.Data
+import Dodge.Wall.Draw
 import Dodge.Zone
 import Dodge.Base.Wall
 import Geometry
@@ -36,7 +37,7 @@ wlSeeThroughDraw wl = wlIsSeeThrough wl && _wlHeight wl == 100
 getWallSPic :: Wall -> SPic
 getWallSPic wl = case wl ^? wlOpacity . opDraw of
     Nothing -> mempty
-    Just f  -> f wl
+    Just f  -> drawWall f wl
 
 --    (wins,wls) = partition theTest . IM.elems . IM.filter _wlUnshadowed $ wallsDoubleScreen cfig w
 --    theTest wl = case _wlOpacity wl of