Refactor, try to limit dependencies
This commit is contained in:
+2
-2
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user