Tag and push series too

If we decide to push some image, also push a series image.

NOTE: because this is guarded behind the image not already existing, we
will only create these as natural releases of new versions occur. We may
or may not backfill manually out of band.

restylers/app/Main.hs

@@ -8,6 +8,7 @@ import RIO.Directory (doesFileExist)
 import RIO.FilePath (takeExtension, (<.>), (</>))
 import Restylers.App
 import Restylers.Build
+import Restylers.Image (getSeriesImages)
 import qualified Restylers.Info.Resolved as Info
 import Restylers.Manifest (toRestyler)
 import qualified Restylers.Manifest as Manifest
@@ -37,7 +38,14 @@ main = do
         exists <- doesRestylerImageExist $ Manifest.image restyler
         if exists
           then logWarn "Not pushing, image exists"
-          else pushRestylerImage $ Manifest.image restyler
+          else do
+            pushRestylerImage $ Manifest.image restyler
+
+            for_ (getSeriesImages $ Manifest.image restyler) $ \images -> do
+              for_ images $ \image -> do
+                logInfo $ "Updating series image " <> display image
+                dockerTag (Manifest.image restyler) image
+                pushRestylerImage image
 
       traverse_ (liftIO . (`Manifest.write` restylers)) oWrite
 

restylers/src/Restylers/Build.hs

@@ -4,6 +4,7 @@ module Restylers.Build
   , doesRestylerImageExist
   , pushRestylerImage
   , dockerRunSh
+  , dockerTag
   ) where
 
 import RIO hiding (to)