destructUnitImages :: [GTKUnit] -> IO ()
destructUnitImages gunits = do
  _ <- mapM destructUnitImage gunits
  return ()
destructUnitImages :: [GTKUnit] -> IO ()
destructUnitImages gunits = do
  _ <- mapM destructUnitImage gunits
  return ()
destructUnitImages gunits = do
  _ <- mapM destructUnitImage gunits
  return ()