Migration refinements

Author: supermario

extra/Lamdera/CLI/Login.hs

@@ -88,7 +88,7 @@ checkApiLoop inProduction appName token =
               url =
                 if textContains "-local" appName
                   then
-                    "http://localhost:8000/auth/cli/" <> mask
+                    "http://localhost:8082/auth/cli/" <> mask
                   else
                     "https://dashboard.lamdera.app/auth/cli/" <> mask
 
@@ -156,6 +156,7 @@ validateCliToken = do
 
 
     Nothing -> do
+      debug_ $ "Found no token in " <> elmHome
       Progress.report $ D.fillSep ["───>", D.red "No CLI auth, please run `lamdera login`"]
       exitFailure
 
@@ -167,7 +168,7 @@ fetchApiSession appName token =
     endpoint =
       if textContains "-local" appName
         then
-          "http://localhost:8000/_r/apiSessionJson"
+          "http://localhost:8082/_r/apiSessionJson"
           -- "https://" <> T.unpack appName <> ".lamdera.test/_i"
         else
           "https://dashboard.lamdera.app/_r/apiSessionJson"

extra/Lamdera/Evergreen/MigrationHarness.hs

@@ -79,7 +79,7 @@ generateFor nextVersion migrationFilepaths = do
       if vinfoVersion nextVersion > 1 then
         upgradeFor migrationSequence nextVersion "BackendModel"
       else
-        "upgradeBackendModelPrevious = ()\n\n"
+        "upgradeBackendModelPrevious = unchanged\n\n"
 
     final =
       [text|
@@ -169,17 +169,19 @@ upgradeFor migrationSequence nextVersion valueType = do
   case nextVersion of
     WithMigrations _ ->
         [untrimming|
-          upgrade${valueType}Previous : T$currentVersion_.$valueType -> UpgradeResult T$nextVersion_.$valueType T$nextVersion_.$cmdMsgType
+          -- upgrade${valueType}Previous : T$currentVersion_.$valueType -> UpgradeResult T$nextVersion_.$valueType T$nextVersion_.$cmdMsgType
+          upgrade${valueType}Previous : previousModel -> UpgradeResult T$nextVersion_.$valueType T$nextVersion_.$cmdMsgType
           upgrade${valueType}Previous model_v$currentVersion_ =
-              model_v$currentVersion_
+              unsafeCoerce model_v$currentVersion_
                   |> M$nextVersion_.$valueTypeTitleCase
 
 
         |]
 
     WithoutMigrations _ ->
         [untrimming|
-          upgrade${valueType}Previous : T$nextVersion_.$valueType -> UpgradeResult T$nextVersion_.$valueType T$nextVersion_.$cmdMsgType
+          -- upgrade${valueType}Previous : T$nextVersion_.$valueType -> UpgradeResult T$nextVersion_.$valueType T$nextVersion_.$cmdMsgType
+          upgrade${valueType}Previous : previousModel -> UpgradeResult T$nextVersion_.$valueType T$nextVersion_.$cmdMsgType
           upgrade${valueType}Previous model_v$currentVersion_ =
               unchanged model_v$currentVersion_
 

extra/Lamdera/Injection.hs

@@ -195,8 +195,6 @@ injections isBackend isLocalDev =
               { decodeWirePayloadHeader: $$author$$project$$LamderaHelpers$$decodeWirePayloadHeader
               , decodeWireAnalytics: $$author$$project$$LamderaHelpers$$decodeWireAnalytics
               , getUserModel : function() { return model.userModel }
-              , setUserModel : function(userModel) { model.userModel = userModel }
-              , upgradeBackendModelPrevious : function() { model.userModel = $$author$$project$$LamderaGenerated$$upgradeBackendModelPrevious(model) }
               }
           |]
         else

extra/LocalDev/LocalDev.elm

@@ -1765,7 +1765,7 @@ getAppSnapshotFilenames appId =
 
         -- , url = "http://apps.lamdera.com:8080/v1/app/" ++ appId ++ "/snapshots"
         -- , url = "http://localhost:8080/v1/app/" ++ appId ++ "/snapshots"
-        , url = "http://localhost:8000/_x/list/snapshots"
+        , url = "/_x/list/snapshots"
         , body = LD.emptyBody
         , resolver = LD.stringResolver <| LD.handleJsonResponse <| Json.decoderList Json.decoderString
         , timeout = Nothing
@@ -1804,7 +1804,7 @@ getAppSnapshot snapshot =
 --     , headers = []
 --     -- , url = "http://apps.lamdera.com:8080/v1/app/" ++ appId ++ "/snapshot-retrieve/" ++ snapshot ++ "/" ++ token
 --     -- , url = "http://localhost:8080/v1/app/" ++ appId ++ "/snapshot-retrieve/" ++ snapshot ++ "/" ++ token
---     , url = "http://localhost:8000/_x/read/" ++ "snapshots/" ++ snapshot
+--     , url = "/_x/read/" ++ "snapshots/" ++ snapshot
 --     , body = LD.emptyBody
 --     , resolver = Http.bytesResolver handleBytesResponse
 --     , timeout = Nothing