Cleanup: broken pathfinding

src/Dodge/Item/Random.hs

@@ -0,0 +1,10 @@
+module Dodge.Item.Random where
+import Dodge.Data
+import Dodge.RandomHelp
+import Dodge.Item.Weapon.BulletGuns
+
+import Control.Monad.State
+import System.Random
+
+randBlockBreakWeapon :: RandomGen g => State g Item
+randBlockBreakWeapon = takeOne [pistol,ltAutoGun,spreadGun,autoGun]

src/Dodge/Item/Weapon.hs

@@ -1,7 +1,6 @@
 {- | Definitions of weapons.
 In progress: move out effects into other modules.  -}
-module Dodge.Item.Weapon 
-    where
+module Dodge.Item.Weapon where
 import Dodge.Data
 import Dodge.Data.SoundOrigin
 import Dodge.Base