Add Read instances

src/Dodge/Wall/Draw.hs

@@ -0,0 +1,18 @@
+module Dodge.Wall.Draw where
+import Dodge.Data.Wall
+import ShapePicture
+import Picture.Base
+
+drawWall :: WallDraw -> Wall -> SPic
+drawWall wd = case wd of
+    DrawForceField -> drawForceField
+
+drawForceField :: Wall -> SPic
+drawForceField wl = (mempty
+    , setLayer BloomLayer
+        . setDepth 20
+        . color (_wlColor wl)
+        $ thickLine 5 [a,b]
+    )
+  where
+    (a,b) = _wlLine wl