11 lines
278 B
Haskell
11 lines
278 B
Haskell
module Dodge.RandImpulse where
|
|
|
|
import Control.Monad.State
|
|
import Dodge.Data.ActionPlan
|
|
import RandomHelp
|
|
|
|
doRandImpulse :: RandImpulse -> State StdGen Impulse
|
|
doRandImpulse ri = case ri of
|
|
RandImpulseList xs -> takeOne xs
|
|
RandImpulseCircMove r -> Move <$> randInCirc r
|