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
+3 -2
View File
@@ -1,9 +1,10 @@
module Dodge.RandImpulse where
import Dodge.Data.ActionPlan
import Control.Monad.State
import Dodge.Data.ActionPlan
import RandomHelp
doRandImpulse :: RandImpulse -> State StdGen Impulse
doRandImpulse ri = case ri of
RandImpulseList xs -> takeOne xs
RandImpulseList xs -> takeOne xs
RandImpulseCircMove r -> Move <$> randInCirc r