Add test tileset textures

src/Dodge/Default/Shell.hs

@@ -11,9 +11,9 @@ defaultShell = Shell
     , _pjAcc = (0,0)
     , _pjDir = 0
     , _pjSpin = 0
-    , _pjDraw = \_ -> blank
+    , _pjDraw = const blank
     , _pjID = 0
     , _pjTimer = 0
-    , _pjUpdate = \_ -> id
-    , _pjPayload = \_ -> id
+    , _pjUpdate = const id
+    , _pjPayload = const id
     }

src/Dodge/Default/Weapon.hs

@@ -46,9 +46,9 @@ defaultAutoGun = defaultGun
     }
 defaultShellAmmo :: Ammo
 defaultShellAmmo = ShellAmmo
-    { _amPayload = \_ -> id
+    { _amPayload = const id
     , _amString = "Shell"
     , _amPjParams = []
-    , _amPjDraw = \_ -> blank
+    , _amPjDraw = const blank
     , _amParamSel = 0
     }