getCategory :: CategoryId -> ScoreCard -> Category
getCategory cid card = head $ dropWhile wrong card
    where wrong cat = (/=) cid $ sel1 cat
getCategory :: CategoryId -> ScoreCard -> Category
getCategory cid card = head $ dropWhile wrong card
    where wrong cat = (/=) cid $ sel1 cat
getCategory cid card = head $ dropWhile wrong card
    where wrong cat = (/=) cid $ sel1 cat