findCategory :: String -> Category
findCategory cat =
  let definedCat = filter (\c -> name c == cat) validCategories
  in if (length definedCat == 0) then others else head definedCat
findCategory :: String -> Category
findCategory cat =
  let definedCat = filter (\c -> name c == cat) validCategories
  in if (length definedCat == 0) then others else head definedCat
findCategory cat =
  let definedCat = filter (\c -> name c == cat) validCategories
  in if (length definedCat == 0) then others else head definedCat