Add generic derivations and To/FromJSON instances
This commit is contained in:
@@ -3,6 +3,7 @@ import Dodge.Data
|
||||
|
||||
import qualified IntMapHelp as IM
|
||||
import Data.Strict.IntMap.Autogen.Merge.Strict
|
||||
--import Data.IntMap.Merge.Strict
|
||||
|
||||
getCrEquipment :: Creature -> IM.IntMap Item
|
||||
getCrEquipment cr = merge dropMissing dropMissing (zipWithMatched $ \_ _ -> id)
|
||||
|
||||
Reference in New Issue
Block a user