Commit b79ec517 authored by Emmanuel Raviart's avatar Emmanuel Raviart

Don't fail in getSubType, when first type of card has an unexpected value.

parent 48986358
......@@ -265,7 +265,11 @@ getCardType card =
else if List.member subTypeId cardTypesForTool then
ToolCard
else
Debug.crash "getCardType: unhandled case"
let
_ =
Debug.log "Types.getCardType: unhandled case: " subTypeId
in
ToolCard
getOrderedCards : DataIds -> List Card
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment