Tests pass

Author: MartinSStewart

extra/Lamdera/Evergreen/MigrationGenerator.hs

@@ -687,16 +687,7 @@ canAliasToMigration oldVersion newVersion scope interfaces recursionSet (typeNew
 
             paramMigrationPairs :: [(N.Name, N.Name)]
             paramMigrationPairs =
-                filter
-                    (\(_, newTVar) ->
-                        isTVarInUse
-                            newTVar
-                            (case aliasTypeNew of
-                                Can.Holey a -> debugHaskellPass "123123123123" newTVar a
-                                Can.Filled a -> debugHaskellPass "123123123123" newTVar a
-                            )
-                    )
-                    (zip tvarsOld tvarsNew)
+                zip tvarsOld tvarsNew
 
             paramMigrationFnsTypeSig :: [Text]
             paramMigrationFnsTypeSig =

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

@@ -181,7 +181,7 @@ migrate_Migrate_All_New_BackendModel old =
     , url = old.url
     , userCache = old.userCache |> migrate_AssocList_Dict identity migrate_IncludedBySpecialCasedParam_Custom
     , apps = (Unimplemented {- Type `Dict (String) (Migrate_All.New.App)` was added in V2. I need you to set a default value. -})
-    , id = old.id |> migrate_Migrate_All_New_Id migrate_Migrate_All_New_UserId
+    , id = old.id |> migrate_Migrate_All_New_Id
     , depthTests = (Unimplemented {- Field of type `Dict (String) (Migrate_All.Old.Depth)` was removed in V2. I need you to do something with the `old.depthTests` value if you wish to keep the data, then remove this line. -})
     , removed = (Unimplemented {- Field of type `String` was removed in V2. I need you to do something with the `old.removed` value if you wish to keep the data, then remove this line. -})
     , removedRecord = (Unimplemented {- Field of type `Evergreen.V1.External.AllCoreTypes` was removed in V2. I need you to do something with the `old.removedRecord` value if you wish to keep the data, then remove this line. -})
@@ -205,13 +205,6 @@ migrate_Migrate_All_New_Id old =
             Migrate_All.New.Id p0
 
 
-migrate_Migrate_All_New_UserId : Migrate_All.Old.UserId -> Migrate_All.New.UserId
-migrate_Migrate_All_New_UserId old =
-    case old of
-        Migrate_All.Old.UserId ->
-            Migrate_All.New.UserId
-
-
 migrate_Migrate_All_New_UserType : Migrate_All.Old.UserType -> Migrate_All.New.UserType
 migrate_Migrate_All_New_UserType old =
     case old of

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

@@ -49,7 +49,6 @@ 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
     }
 
 
@@ -78,13 +77,6 @@ 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

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

@@ -103,11 +103,11 @@ 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_ : (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 =
+migrate_Migrate_External_Paramed_New_Point2d_ : Migrate_External_Paramed.Old.Point2d_ units_old coordinates_old -> Migrate_External_Paramed.New.Point2d_ units_new coordinates_new
+migrate_Migrate_External_Paramed_New_Point2d_ old =
     case old of
         Migrate_External_Paramed.Old.Point2d_ p0 ->
             Migrate_External_Paramed.New.Point2d_ p0

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

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