Cleanup, haddocks

src/Dodge/Creature.hs

@@ -14,6 +14,7 @@ import Dodge.Item.Consumable
 import Dodge.WorldEvent.Cloud
 import Dodge.Creature.YourControl
 import Dodge.Creature.Inanimate
+import Dodge.Item
 
 import Picture
 import Geometry
@@ -255,13 +256,9 @@ startCr = defaultCreature
         [pistol
         ,blinkGun
         ,spawnGun lamp
-        ,flameGrenade
-        ,teslaGrenade
+        ,poisonSprayer
         ,autoGun
         ,launcher
-        ,flameLauncher
-        ,poisonLauncher
-        ,teslaLauncher
         ,lasGun
         ,grenade
         ,ltAutoGun,flamer,multGun,spreadGun,remoteLauncher
@@ -272,7 +269,6 @@ startCr = defaultCreature
         ,miniGun
         ,medkit 50
         ,bezierGun
-        ,poisonSprayer
         ] 
           ++ repeat NoItem)) 
     , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ pictures [color (greyN 0.8) $ circleSolid 10, circLine 10]