-- internal functions

insertCard :: Card -> CardMap -> CardMap
insertCard c cm = M.insert (cardId c) c cm
insertCard :: Card -> CardMap -> CardMap
insertCard c cm = M.insert (cardId c) c cm
insertCard c cm = M.insert (cardId c) c cm