Refactor, try to limit dependencies

This commit is contained in:
2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
+2 -2
View File
@@ -1,8 +1,7 @@
module Dodge.Tweak where
import Dodge.Data.Item
import Control.Lens
import Dodge.Data.Item
doTweak :: TweakType -> Int -> Item -> Item
doTweak tt = case tt of
@@ -11,6 +10,7 @@ doTweak tt = case tt of
TweakSpinDrag -> \i -> itParams . shellSpinDrag .~ i
TweakSpinAmount -> \i -> itParams . shellSpinAmount .~ i
TweakThrustDelay -> \i -> itParams . shellThrustDelay .~ i
tweakTractionPower :: Int -> Item -> Item
tweakTractionPower 0 = itParams . attractionPower .~ 1
tweakTractionPower 1 = itParams . attractionPower .~ -1