Remove PickOnePlacements

src/Dodge/Placement/Random.hs

@@ -5,7 +5,7 @@ import Dodge.Item
 import RandomHelp
 
 {- Probabilites of the type of the first floor weapon.  -}
-randFirstWeapon :: State StdGen Item
+randFirstWeapon :: RandomGen g => State g Item
 randFirstWeapon =
     takeOne $
         replicate 10 pistol