Handle id migration correctly

Author: MartinSStewart

extra/Lamdera/Evergreen/MigrationGenerator.hs

@@ -217,7 +217,7 @@ migrateUnionDefinition_ author pkg oldUnion newUnion tvarMapOld tvarMapNew oldVe
 
     tvarPairs :: [(Can.Type, Can.Type)]
     tvarPairs =
-      zip (loadTvars tvarsOld tvarMapOld) (loadTvars tvarsNew tvarMapNew)
+      zip (loadTvars (fmap fst paramMigrationPairs) tvarMapOld) (loadTvars (fmap snd paramMigrationPairs) tvarMapNew)
 
     tvarMigrations :: [Migration]
     tvarMigrations =  migrateTvars oldVersion newVersion scope interfaces recursionSet tvarMapOld tvarMapNew tvarPairs

test/scenario-migration-generate/src/Migrate_All/Actual.elm

@@ -198,8 +198,8 @@ migrate_Migrate_All_New_CustomType old =
             Migrate_All.New.CustomTwo
 
 
-migrate_Migrate_All_New_Id : (a_old -> a_new) -> Migrate_All.Old.Id a_old -> Migrate_All.New.Id a_new
-migrate_Migrate_All_New_Id migrate_a old =
+migrate_Migrate_All_New_Id : Migrate_All.Old.Id a_old -> Migrate_All.New.Id a_new
+migrate_Migrate_All_New_Id old =
     case old of
         Migrate_All.Old.Id p0 ->
             Migrate_All.New.Id p0

test/scenario-migration-generate/src/Migrate_External_Paramed/Actual.elm

@@ -49,6 +49,7 @@ migrate_Migrate_External_Paramed_New_AnalyticsModel old =
                     { position = rec.position |> migrate_Migrate_External_Paramed_New_Point2d identity identity
                     }
                 )
+    , userId = old.userId |> migrate_Migrate_External_Paramed_New_Id
     }
 
 
@@ -77,6 +78,13 @@ migrate_Migrate_External_Paramed_New_Debounce migrate_a old =
                 }
 
 
+migrate_Migrate_External_Paramed_New_Id : Migrate_External_Paramed.Old.Id a_old -> Migrate_External_Paramed.New.Id a_new
+migrate_Migrate_External_Paramed_New_Id old =
+    case old of
+        Migrate_External_Paramed.Old.Id p0 ->
+            Migrate_External_Paramed.New.Id p0
+
+
 migrate_Migrate_External_Paramed_New_IdDict : (k_old -> k_new) -> (v_old -> v_new) -> Migrate_External_Paramed.Old.IdDict k_old v_old -> Migrate_External_Paramed.New.IdDict k_new v_new
 migrate_Migrate_External_Paramed_New_IdDict migrate_k migrate_v old =
     case old of
@@ -103,7 +111,7 @@ migrate_Migrate_External_Paramed_New_NColor old =
 
 migrate_Migrate_External_Paramed_New_Point2d : (units_old -> units_new) -> (coordinates_old -> coordinates_new) -> Migrate_External_Paramed.Old.Point2d units_old coordinates_old -> Migrate_External_Paramed.New.Point2d units_new coordinates_new
 migrate_Migrate_External_Paramed_New_Point2d migrate_units migrate_coordinates old =
-    old |> migrate_Migrate_External_Paramed_New_Point2d_ migrate_units migrate_coordinates
+    old |> migrate_Migrate_External_Paramed_New_Point2d_
 
 
 migrate_Migrate_External_Paramed_New_Point2d_ : Migrate_External_Paramed.Old.Point2d_ units_old coordinates_old -> Migrate_External_Paramed.New.Point2d_ units_new coordinates_new

test/scenario-migration-generate/src/Migrate_External_Paramed/New.elm

@@ -22,6 +22,7 @@ type alias AnalyticsModel =
             String
             { position : Point2d String String
             }
+    , userId : Id UserId
     }
 
 
@@ -75,3 +76,11 @@ type Debounce a
         { input : List a
         , locked : Bool
         }
+
+
+type Id a =
+    Id String
+
+
+type UserId =
+    UserId

test/scenario-migration-generate/src/Migrate_External_Paramed/Old.elm

@@ -22,6 +22,7 @@ type alias AnalyticsModel =
             String
             { position : Point2d String String
             }
+    , userId : Id UserId
     }
 
 
@@ -75,3 +76,11 @@ type Debounce a
         { input : List a
         , locked : Bool
         }
+
+
+type Id a =
+    Id String
+
+
+type UserId =
+    UserId