tracing

Author: hdgarrood

persistent-postgresql/Database/Persist/Postgresql/Internal/Migration.hs

@@ -13,6 +13,7 @@ import Control.Monad
 import Control.Monad.Except
 import Control.Monad.IO.Class
 import Data.Acquire (with)
+import Debug.Trace
 import Data.Conduit
 import qualified Data.Conduit.List as CL
 import Data.Either (partitionEithers)
@@ -492,7 +493,7 @@ migrateEntitiesStructured
     -> IO (Either [Text] [AlterDB])
 migrateEntitiesStructured getStmt allDefs defsToMigrate = do
     r <- collectSchemaState getStmt (map getEntityDBName defsToMigrate)
-    putStrLn $ "collectSchemaState: " <> show r
+    -- putStrLn $ "collectSchemaState: " <> show r
     pure $ case r of
         Right schemaState ->
             migrateEntitiesFromSchemaState schemaState allDefs defsToMigrate
@@ -637,7 +638,10 @@ getAlters
     -> ([Column], [(ConstraintNameDB, [FieldNameDB])])
     -> ([AlterColumn], [AlterTable])
 getAlters defs def (c1, u1) (c2, u2) =
-    (getAltersC c1 c2, getAltersU u1 u2)
+    if getEntityDBName def == EntityNameDB "child"
+        then traceShow ((c1, u1), (c2, u2)) $
+                traceShowId (getAltersC c1 c2, getAltersU u1 u2)
+        else (getAltersC c1 c2, getAltersU u1 u2)
   where
     getAltersC [] old =
         map (\x -> Drop x $ SafeToRemove $ safeToRemove def $ cName x) old