aspectRecordToList :: AspectRecord -> [IK.Aspect]
aspectRecordToList AspectRecord{..} =
  [IK.Timeout $ Dice.intToDice aTimeout | aTimeout /= 0]
  ++ [ IK.AddSkill sk $ Dice.intToDice n
     | (sk, n) <- Ability.skillsToList aSkills ]
  ++ [IK.SetFlag feat | feat <- ES.elems $ Ability.flags aFlags]
  ++ [IK.ELabel aELabel | not $ T.null aELabel]
  ++ [IK.ToThrow aToThrow | aToThrow /= IK.ThrowMod 100 100 1]
  ++ maybe [] (\ha -> [IK.PresentAs ha]) aPresentAs
  ++ maybe [] (\slot -> [IK.EqpSlot slot]) aEqpSlot
aspectRecordToList :: AspectRecord -> [IK.Aspect]
aspectRecordToList AspectRecord{..} =
  [IK.Timeout $ Dice.intToDice aTimeout | aTimeout /= 0]
  ++ [ IK.AddSkill sk $ Dice.intToDice n
     | (sk, n) <- Ability.skillsToList aSkills ]
  ++ [IK.SetFlag feat | feat <- ES.elems $ Ability.flags aFlags]
  ++ [IK.ELabel aELabel | not $ T.null aELabel]
  ++ [IK.ToThrow aToThrow | aToThrow /= IK.ThrowMod 100 100 1]
  ++ maybe [] (\ha -> [IK.PresentAs ha]) aPresentAs
  ++ maybe [] (\slot -> [IK.EqpSlot slot]) aEqpSlot
aspectRecordToList AspectRecord{..} =
  [IK.Timeout $ Dice.intToDice aTimeout | aTimeout /= 0]
  ++ [ IK.AddSkill sk $ Dice.intToDice n
     | (sk, n) <- Ability.skillsToList aSkills ]
  ++ [IK.SetFlag feat | feat <- ES.elems $ Ability.flags aFlags]
  ++ [IK.ELabel aELabel | not $ T.null aELabel]
  ++ [IK.ToThrow aToThrow | aToThrow /= IK.ThrowMod 100 100 1]
  ++ maybe [] (\ha -> [IK.PresentAs ha]) aPresentAs
  ++ maybe [] (\slot -> [IK.EqpSlot slot]) aEqpSlot