9 lines
218 B
Haskell
9 lines
218 B
Haskell
module Dodge.CrGroupUpdate
|
|
where
|
|
import Dodge.Data.World
|
|
|
|
doCrGroupUpdate :: CrGroupUpdate -> World -> CrGroupParams -> Maybe CrGroupParams
|
|
doCrGroupUpdate cgu = case cgu of
|
|
DefaultCrGroupUpdate -> const Just
|
|
|