pickUnitIconFileName :: Color -> Type -> Size -> FilePath
pickUnitIconFileName color typ size = let
  charcolor = case color of
    Blue -> "b"
    Red -> "r"
  chartyp = case typ of
    Armor -> "arm"
    Mech -> "mec"
  charsize = case size of
    Battalion -> "4"
    Brigade -> "5"
  in
    charcolor ++ chartyp ++ charsize ++ ".ico"
pickUnitIconFileName :: Color -> Type -> Size -> FilePath
pickUnitIconFileName color typ size = let
  charcolor = case color of
    Blue -> "b"
    Red -> "r"
  chartyp = case typ of
    Armor -> "arm"
    Mech -> "mec"
  charsize = case size of
    Battalion -> "4"
    Brigade -> "5"
  in
    charcolor ++ chartyp ++ charsize ++ ".ico"
pickUnitIconFileName color typ size = let
  charcolor = case color of
    Blue -> "b"
    Red -> "r"
  chartyp = case typ of
    Armor -> "arm"
    Mech -> "mec"
  charsize = case size of
    Battalion -> "4"
    Brigade -> "5"
  in
    charcolor ++ chartyp ++ charsize ++ ".ico"