Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,13 +1,15 @@
 module Dodge.Placement.Random where
-import Dodge.Data
+
+import Dodge.Data.Item
 import Dodge.Item
 import RandomHelp

 {- Probabilites of the type of the first floor weapon.  -}
 randFirstWeapon :: State StdGen Item
-randFirstWeapon = takeOne $
-    replicate 10 pistol
-    ++ replicate 5 (bangStick 4)
-    ++ replicate 5 (volleyGun 3)
-    ++ replicate 5 bangCone
-    ++ [lasGun]
+randFirstWeapon =
+    takeOne $
+        replicate 10 pistol
+            ++ replicate 5 (bangStick 4)
+            ++ replicate 5 (volleyGun 3)
+            ++ replicate 5 bangCone
+            ++ [lasGun]