-- | Construct gtk unit widgets for the force
constructForceUnitImages :: FilePath -> Force -> IO [GTKUnit]
constructForceUnitImages iconsdir force = do
  gunits <- mapM (newFromUnit iconsdir (forceColor force)) (forceUnits force)

  return gunits
constructForceUnitImages :: FilePath -> Force -> IO [GTKUnit]
constructForceUnitImages iconsdir force = do
  gunits <- mapM (newFromUnit iconsdir (forceColor force)) (forceUnits force)

  return gunits
constructForceUnitImages iconsdir force = do
  gunits <- mapM (newFromUnit iconsdir (forceColor force)) (forceUnits force)

  return gunits